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DISK/TAPE DEFAULT 



1/1 



This handy routine allows you to 
set the default device number 
totape or disk for all loading 
and saving operations. Once it is 
set, you can then just type in 
LOAD "filename - you don't even 
need the final quotes. 

If a machine code program is to 
be saved or loaded then the 
reset (SYS 720) and normal syntax 
will have to be used (eg ,8,1). 

The program works by redirecting 
the load and save vectors at 
816and 818 to this new routine at 
679. To set the default to 
disk, use SYS 679 and to reset it 
to tape use SYS 708. 



- DEFAULT TO 



- RESET TO 



10 REM* ************************* 

20 REM* DEVICE SET * 

3 0 REM* ************************* 

40 REM * SYS 679 :- DEFAULT TO 

DISK * 

50 REM * SYS 708 
TAPE * 

60 REM * SYS 720 
NORMAL * 

7 0 REM* ************************** 
80 FOR L=679 TO 758:READ A:P0KE 
L , A : D=D+A : NEXT 

90 IF D<>8969 THEN PRINT "DATA 
ERROR" : END 

100 DATA 169,8,141,230,2,141,241, 

2,169,229, 141,48,3, 169,240, 141 

110 DATA 50,3,169,2,141,49,3,169, 

2,141,51,3,96,32,175,2 

120 DATA 169,1,141,230,2,141, 

241,2,96,169,165,141,48,3,169,244 

130 DATA 141,49,3,169,237,141,50, 

3, 169,245, 141,51,3,9 6, 169,8 

140 DATA 133,186,169,0,133,10,76, 

165,244,169,8,133,186,7 6,237,245 
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LISTING PAUSE 
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The problem with the Commodore 64 
operating system is that alisted 
program shoots up the screen too 
quickly to read. This leaves the 
user having to laboriously list 
lines in groups of about ten. 

This program solves the problem 
by allowing the user to pause the 
scrolling program by pressing the 
spacebar. The routine is placed 
high in the 49152 block of memory 
at 53200 and therefore leaves 
plenty of scope for using 
programs which call up other code 
routines in this area. 



10 C=0:REM LIST STOP BY STEPHEN 
ELMER 

20 FOR 1=53200 TO 53245 :READ 

A:C=C+A:POKE I, A: NEXT 

30 IF C<>6879 THEN PRINT"ERROR IN 

DATA" : END 

40 SYS 53200 

50 DATA 169,219,141,38,3,169,207, 
141 

60 DATA 39,3,96,72,165,204,201,1 
70 DATA 208,24,165,197,201,60, 
208, 18 

80 DATA 201,60,208,250,165,197, 
201, 60 

90 DATA 240,250,104,76,202,241 



Type in the program and save it. 
When you think you may wish to 
use it, load it in before doing 
anything else with the computer 
and RUN. It will automatically 
execute itself so all you then 
have to do is to remember to 
press the spacebar. 
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Easy Entry C64 



(id it right fust time with our deluxe program s\\tem 

for the CM. 



E 



ou may have noticed that our 
listings are free of those horrible little 
black blobs which send you searching 
around the keyboard for a suitable 
graphic symbol. You may also have 
noticed the funny numbers by the side 
of each line of the listing. Fret no more, 
it's all part of our easy entry aid. 

Instead of those nasty graphics and 
rows of countless spaces in PRINT 
statements and strings we use a special 
coding system. The code, or 
mnemonic, is always contained in 
square brackets and you'll soon learn 
to decipher their meanings. 

For example. [SAJ would mean 
type in a Shifted A, or an ace of spades 
in layman's terms, and [SA10] would 
mean a row of ten of these symbols. 

[S+2] means hold down the shift 
key and press the plus key twice. It 
doesn't take a great leap of logic to 
realise that [C+2] means exactly the 
same thing except that the Commo- 
dore key (bottom left of the keyboard) 
is held down instead of the shift key. 

If more than two spaces appear in a 
statement then this will be printed as 
[SPC4] or, exceptionally. [SSPC4], 
Translated into English this means 
press the spacebar four times or in the 
latter case hold the shift key down 
while you do it. 

A string of special characters could 
appear as: 

[CTRL N. DOWN2.LEFT5.BLUE, 
F3.C3] 

This would be achieved by holding 



down the CTRL key as you press N. 
press the cursor key down twice, the 
cursor left key five times, press the key 
marked BLUE while holdingdown the 
CTRL key, press the F3 key and, 
finally hold the Commodore key down 
while pressing the number two key (C2 
would of course make the computer 
print in brown). 

Always remember that you should 
only have a row of graphics characters 
on your screen with no square brackets 
and no commas, unless something like 
this appears: 
[SS],[C«] 

In this case the two characters should 
have a comma between them. 

On rare occasions [REV T] will 
appear in a listing. This is a delete 
symbol and is created by entering the 
line up to this mnemonic. Then type a 
closing quotation mark {SHIFT & 2) 
and delete it. This gets the computer 
out of quotes mode. Hold down CTRL 
and press the number nine key 
(RVSON). type the relevant number of 
reversed T's and then hold down 
CTRL and press zero (RVSOFF). 
Next type another quotation mark and 
delete it again. Now finish the line and 
press RETURN. 

A list of these special cases is given 
in the table but remember that only 
one of these mnemonics will appear 
outside of a PRINT string: the symbol 
for pi. This may appear when its value 
is needed in a calculation so this may 
look something like: 



:CC=2*[PI]*R: 

Ignore the square brackets and just 
type in a shifted upward pointing 
arrow (ie. the pi symbol). 



FF-OGPAM: SYNTAX CHECKER 



5 REH 5YTAX CHECKER - ERIC DOYLE 

10 BL-10 :LN-70 :SA-4915S 
50 FOR L-0 TO BL.CX-0:FOR 0-0 TO 
15 

30 READ A; IF A>2SSTHENPRINT"NUnS 
ER TO LARGE";LN*CL-10):ST0P 
40 CX«CX»A:POKE 5A*L*16-0,A:NEXT 
D 

50 READ A; IF A><CX THENPRINT~ERR 

OR IN LINE~;LN*CL*101:ST0P 

60 NEXT L 5YS 19155: NEU 

70 DATA 173,5,3,501,165,508,31.1 

50, 169,9, 141 ,35,508, 141 ,33,508, 1 

847 

80 DATA 169,7,141.134,5,169,13,3 
5,510,555, 169,64.141,4,3, 169,168 
5 

90 DATA 195.141,5.3.88,96,150.16 
9.154,141,4,3,169,165.141,5, 1566 

100 DATA 3,159.14.141,134,5,141. 
35,508,169.6.141,33,508,88,96,15 
85 

110 DATA 35,154.165,75,138.75.15 
5 . 75 , 1 65 , 0 . 1 65 , 50 , 1 33 , 554 , 1 65 , 5 1 
.1747 

150 DATA 54.101.554.133,554.169, 
0,5, 540 , IS , 69,554 , 133, 554 , 535 , IB 
8,5345 

130 DATA 0,5,540,8,54, 101, 5S4, 13 
3 . 554 , 535 , 508 , 533 , 169 , 1 , 141 , 1 34 , 
5134 

140 DATA 5,165.554.74.74.74,74,3 
5,156,195,35,510.555,165,554,41, 
5054 

150 DATA 15.35,156,195,35,510,55 
S, 169, 13.35,510,555, 169,13.35.51 
0,1995 

160 DATA 555,169,7,141,134,5,104 
, 168, 104,170. 104,96,54, 105,48,50 
1, 1835 

170 DATA 58. 16,1.96.54. 10S, 7. 96, 
0.0.0,0,0,0.0,0.403 



by Eric Doyle 
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Mnemonic Symbol 

(RIGHT] 



[LEFT] 

[DOWN] 

[UP] 

[Fl] 

[F2] 

[F3] 

[F4] 

[F5] 

[F6] 

[F7] 

urn 

[HOME] 
[CLR] 
[RVSON] 
[RVSOFF] 



Keypress 

CRSR left/right 

SHIFT & CRSR left/right 
CRSR up/down 
SHIFT & CRSR up/down 
fl key 

SHIFT & II key 
D key 

SHIFT & B key 
f5 key 

SHIFT & f5 key 
H key 

SHIFT & a key 

CLR/HOME 

SHIFT & CLR/HOME 

CTRL & 9 

CTRL & 0 



Mnemonic Symbol 

[BLACK] 

[WHITE] 
[RED] 
[CYAN] 
[PURPLE] 
[GREEN] 
[BLUE] 
[YELLOW] 

[POUND] 
[LARROW] 
[UPARROW] 
[PI] 
[INST] 
[REV T] 
[Cleiter] 
[Sletlerl 



Keypress 

CTRL & I 

CTRL & 2 
CTRL & 3 
CTRL & 4 
CTRL & 5 
CTRL & 6 
CTRL & 1 
CTRL & 8 
£ 

♦ 

SHIFT & f 
SHIFT & INST/DEL 
see text 
CBM + letter 
SHIFT + letter 



Checksum Program 

The hexadecimal numbers appearing 
in a column to the left of the listing 
should not be typed in with the 
program. These are merely checksum 
values and are there to help you get 
each line right. Don't worry if you 
don't understand the hexadecimal 
system, as long as you can compare 
two characters on the screen with the 
corresponding two characters in the 
magazine you can use our line 
checking program. ' 

Type in the Checksum Program, 
make sure that you've not made any 
mistakes and save it to tape or disk 



immediately because it will be used 
with most of the present and future 
listings appearing in Your 
Commodore. 

At the start of each programming 
session, load Checksum and run it. 
The screen will turn brown with yellow 
characters and each lime you type in a 
line and press the RETURN key a 
number will appear on the screen in 
white. This should be the same as the 
corresponding value in the magazine. 

If the two values don't relate to one 
another, you have not copied the line 
exactly as printed so go back and check 
each character carefully. When you 
find the error simply correct it and 



press RETURN again. 

If you want to turn off the checker 
simply type SYS49I52 and the screen 
will return to the familiar blue colours. 
You can then do whatever it was you 
wanted to do and if this doesn't use the 
area where Checksum lies you can go 
back to it with the same SYS 
command. 

No system is foolproof but the 
chances of two errors cancelling one 
another out are so remote that we 
believe our listings are more reliable 
than any other magazine in the world. 
So get typing! 
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Mouse 




Type-in this listing for C64 mice and see how they run! 

by W I Sellers 



71 



he Neos mouse included in the 
Commodore Connoisseur's Collec- 
tion is extremely good at its job. It 
has two operating modes and can act 
as a joystick emulator to make it 
widely compatible with commercial 
software, or in its standard mode, 
which allows much smoother con- 
trol. The main drawback is the weak 
documentation explaining how the 
mouse can be incorporated in your 
own programs. The following rou- 
tine enables you to read the position 
of the mouse from Basic. 

How It Works 

The mouse transmits its movement 
as an X and Y displacement. The 
program is a machine-code routine 
which receives the movement and 
assigns the values automatically to 
two Basic variables, DX and DY. 



The status of the left-hand button is 
returned in the variable FB. These 
variable names are created within 
the routine, so they don't need to be 
previously assigned. 

To use the mouse, switch off the 
normal function of the keyboard 
and call the mouse set-up routine at 
decimal 50003. The mouse-read 
routine at decimal 50000 must be 
called each time its position needs to 
be updated. DX and DY contain the 
distance moved in the X and Y 
direction since the last time the read 
routine was called. 

For machine-code users, the sub- 
routine that performs the mouse 
read is at SC3A3 to SC42C with the 
X and Y displacements and button 
status stored from $C42D to SC42F. 
The rest of the program is concerned 
with assigning the values to the 
Basic variables. 



In Use 

The program is in the form of a 
simple demonstration with the 
mouse used to move a sprite round 
the screen. Lines 470-920 form a 
subroutine that creates the machine- 
code routine and it's this bit that 
needs to be incorporated into other 
programs. 

You need to insert the mouse 
after the program has been started 
because the keyboard produces non- 
sense with the mouse in place. Save 
a copy of the program before run- 
ning it in case there are any mistakes 
that might lead to a crash. The 
RUN/STOP key is disabled by the 
program so that the program can 
only be stopped by RUN/STOP and 
RESTORE being pressed 
simultaneously. 



NE" LOC. OBJECT 


LABELS 


LINE 


10 OODO 




.PAGE ZERO LABELS 


SO OOOO 






30 OOOO 


wrtE 


-S4S 


40 OOOO 


ADDRESS 


-S47 


50 OOOO 


SI ON 


-1SG 


GO OOOO 






70 OOOO 




' BASIC ROT ROUTINES 


BO OOOO 






SO OOOO 


FINOUAR 


-SB0E7 


100 OOOO 


CONUERTYTOFLP 


-IB3A2 


110 OOOO 


FLPTOHEH 


-SBB04 


ISO OODO 






130 OOOO 






140 OOOO 




! 1N/0UT ADDRESSES 


150 OOOO 






1BO OOOO 


PADDLEX 


-10419 


170 OOOO 


PORT 2 


-SDCOO 


160 OOOO 


□0R2 


-SDC02 


190 OOOO 


1CR1 


-*DCOD 


200 OOOO 


ICR? 


-IDOOO 


eio oooo 


CRfll 


-SDCOE 


220 0000 


CR81 


-50C0F 


ex oooo 


CSA2 


-SODOE 


240 OOOO 


CRB2 


-SOOOF 


250 OOOO 






eso oooo 




i START 



MEM LOC. OBJECT 


LABELS 


LINE 






270 OOOO 










280 C3S0 




!dRG 50000 






290 C3S0 










300 C350 










310 C3SD 




';JunP TABLE 






320 C350 










330 C3S0 1C56C3 


RE AO 


JMP START 






340 C353 4C30C4 


SETUP 


JnP INITIALIZE 






350 C3S6 










3G0 C3SB 




,'flAlN ROUTINE TO 


READ 


HOUSE 


370 C356 




; AND PUT RESULTS 


IN 3 


VARIABLES 


390 C356 




;QX, DV AND FB 






390 C35B 




t 






400 C3S6 20A3C3 


START 


JSR HOuSEREAD 






410 C359 










420 C3SS 




Ideal with delx 






430 C3S9 










440 C359 0D2DC4 




LDO DELX 






450 C3SC A244 




LDX I'D' 






4G0 C35E A05B 




LDY #'X* 






470 C360 207BC3 




JSR STOREACC 






480 C3S3 










490 C363 




'[DEAL MITH DELY 






500 C363 










510 C3S3 AD2EC4 




LDA DELY 






SM C365 A244 




LDX •*D' 






530 C3&B "059 




LDY t'V* 
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LINE" LDC. OBJECT LABELS LINE LINE* LDC. OBJECT LABELS LINE 



— iw — — — - ■ — ■ m>j 


tip iTnpporr 


1 P5f J lift 








i ifin nn rut 


asl a 


^OW L-JgU 


1 

UfAi ii ITU bi iT^PrtU 

iUtnL UITH BUTTOrV 




hjL ri 


570 C36P 


t 


iw rir<> rppit" 


era npi v 


can r^Rn firiPtf ** 

juU ljdu nucr l. i 


T n*i Pi iTTHll 

LDR BUTT ON 


1 *^**n r^ro 

4 JrfV L^JUg 




•s^n n?n 

...-.) uj f u «Cig 


LUX m p 


1 P/lfl nPH 


CFT HIT U 
; ac i ail ^ 


Rnn n7P ao^p 

UW ■ f . — p 1 ■ — 




i fi i n rvfl 




Gltl H7H ' 1 n7fT'* 

W4V ' 4 WW/ UW-W 




i fipn nrR Annnnr 


1 OA PHPTP 
^w"i r nn i r 


5SD C377 


* 


Ifi^fl PTP (Wtfl 




DJU ' yv 




IDlV bJLU DUUUUL 


CTn DnOTw 1 


640 C37B 


1 


iccn r^nn 




WJv WW' w 


, nULf I (lib IU JiUnL H.LLP lUL^l UH 


i fifin nnn 

X>1WW w WWW 


i pfv^P -fi rvpf i" 1 " 


Ken ra7o 


i"3 oRalL UnKJRUt-t IN XV 


iB7n nnn 




R7C1 n?p 




i rrti r'inri Afinc 

» ^- — — W-WWW — - -- 


t nv n«cnc; 

IrVI "*U3 


68D C37B 




i Rtn r3HP pripurn 

* WWW 1 In JUb WVkWW J 


.TRP PRimF 

yyll l ~ww-t» 


R*m ri7R 


I 


' 7nn rw 

A f WW WW WW 




7r>n p*^^r mr QTnpcflrr 1 


■4m 

rHn 


1/iQ LJUb 




7in n7*) r^****, 

r iw WwSw vau 




1 7Pn f*^nc 
l f cu UJua 




7Pf1 ri7H RHHfi 

* w w — — * w u i iu 




1730 C3DS ADOODC 


LDA Punic 




I 


1740 C306 SBOF 


AND »S0F 


7**n ri7n 


; i Ubn 0UTTY WLUE ON SIRCK 


1750 ljUA 0DSDC4 


URA DcLX 


750 C37Q 




17bD CJDD BDcOCI 


51 H DEL" 


/ uv lj/u nar r 


IDA W4FF 


f TTrt i™ >irni 

1770 C3E0 




77fi n?r MR 

t * w V— j / r ^ a 




1 7B0 C jEO 


, CLEAR BIT 4 


■7Rn p^ro 


] 


1790 C3E0 




7*in riwn 


i C f ^Jfl 1 USD f ADI C 1 rtf* T 1 flAt 


1B0O C3E0 ADOODC 


LDA P0RTB 


Rnr\ p ""hip 


"J-.. 


1610 C3E3 SSEF 


AND »SEF 


Bin nflo pnmin 

v * V V* WWW WW is r UW 


<jjit r iriuvHn 


IBeU . i:. ..- BuODOL 


STA PORTS 






la 30 C3EB 




rio riR"* 

W W V wWUw 


, -i.l KIU Up DUnnY 


1B40 C3EB 


; r AUdl 50 CYCLES 






1B50 C3EB 


i 


R^n rm^ 

U WW w«JUi-» ^l" 


rLR 


1 BoU AOOS 


LDV HS05 


B60 C3B1 


I 


ifl7ffc i*' -if-r* 3^2iiru 

JD/U 1 — ICR i-Jr'bM 


ICQ DAT fCF 


R7fi r UN 


iUJNuERI A Cc 5 COnPLEnEMJ 10 


lBBO LJtD 


• 


RRH T7R-I 

ww _ _i i_ i 


jr Lux 11 Mi KOINI 


i am ntn 

CJEU 


; GET Klun NYBBLE 


B90 C3B1 


1 


wwtu 


i 


inn riRi or 


rLR 


• o i n f^Tpn A p fi ftp/" 


1 PjA bnQT ■ 


BIO C3B5 






h5L R 


APfl r lA^ 


; LrttL* IF rOSIIIUt 


:HjC C3F1 OP 


a 5L A 


330 C3BS 




i Gun nrs nrt 
1.: :J LwPC OR 


rtCI A 

R5L R 


s>tn rwc i nno 

** tw iii- . 


up' cai 


LJr J UH 


'OL n 


950 C307 




I960 C3F1 aucE-l 


STA DELY 


960 C387 


• rnw/FRT >..-■.....■ 


i 07n rir7 


• 


970 C3Q7 


* 


1 RRH P7F7 

4 WWW WW 1 ' 


; SET BIT 4 


980 C3B7 19FF 


FHP n* 1111111 


•1 -WW ■ . ■ ■ 4F 


E 


990 C389 AS 




CUww LJr / HUUUUU 




1000 C3BA CB 


I NY 


LJl" 


"Pa m% i n 
unrt T«iy 


loin r TRR JTJISPI 






5TR rORTc 


******* WWW ft* . _ _' _ ._ _J 




cuww urr 




1030 C391 




cuiu Ltjrr 


' Pat r^P *"in PVPf P^ 
;rnjac av lillcj 


1040 C331 


i rriMjFPT pnm thip u imrpd 


prftrt nfF 

B www r 


t 


1QS0 

*™ JU www* 


t 


PflR*! ricr q/iac 
CUL>U wwrr AUU3 


i nv M%nc 


1060 C391 AB 5A1 


TOY 




ics pqi ice 


i o'n rw ^fw^Bi 

* W J w* ^ JnL l_ W*"^ B W 


JUW L-UNUt RT YlUrLr 


CUDU L] U 1 


i 


* w **^* WW WW "JuU 


1 riot e t R4i 


pran ruiyu 




i nsn r")R7 mipc 


eUK H11 1 1 11 1 1 


cllXJ UIOt 




1100 C399 B5G6 


ST A SIGN 


pi i n rnr^ Rrnnnr 


i- ii** runic 


1110 C39S 


r 


j i 3n *r* n ^ 3Qnp 

clcu CIO/ c90r 


AND "SO* 


1 1 pn rVR 

4 A THW W W W41 


, Blunt FLDnll'iQ POIM RCClinui.AIUR 


■ in runo onstru 
l - JU UlKJ ODcEw 1 ! 


0RA DELY 




1 


tliU LiUL UUCLLt 


STH DELt 


f*7QQ 

111U l-AHa R&17 SAt? 


LDX AUDRESS 


- ; tU wMOF 




1 1 tin p*^Rn duuq 

lltw 


LDV ADDRESS*! 


D 1 Cft PUA t 

clbu U"iur 


, READ BUTTON 


£irww -iJr CVUISD 


J5H FLPTOnEM 


ci'U Liur 




1 1 70 C3A£? 


I 




LDA PAUDLEX 


1 1 AH P'IijP 1 


itfEruRN 


3idA f*u i w race 
claO ivilc w3FF 


CTIP BIFF 


1 130 


1 


CCUU Ulli UUUl 


BNE nTfl 


* L — ^. M pfM -- -- 


■lb 


pp in pm l c 

- r 4 W wi 1 a 


■ 


tPin P^M 

it 1 U w_J**J 




CCCU Ll.S 


; »FF IN A IF BUTTON PRESSED 


l??0 C3A3 


,HauiINE Iu READ HQ USE POSITION 


p** ir> p^i i r 

CCJV l,iiu 




1^30 


? ; 


tcMU U"11w 


; SX I r NEXT I N5 1 RUC 1 1 UU 




.DISABLE INTERRUPTS 


ESSO CM 1 G 


• 


1 MA 


t 


ccbO CHirj cU 


t BYTE %SC 


*i»«w i i ra MUvJ »jl.rtr.MLJ 


5EI 


CC (U w^l / 


i 




) 


3*}QP J"*W * ^ rt DAA >m Q < 

ccBO CI 17 A900 nRI 


L0A tftOO 


i prt: r 


{STORE IN/OUT BEB1SIERS 


— l — Llla UUcrtl 


5TR BUI 1 UN 


T : ' < 1 " V . 

1 L JU u jf* : 


1 


c300 C11C 


t 


1 "inn r^fl*# ant>nnr 

• jug l#jrn HJUUUL 


LDA PORTS 


cJlu C41C 


fiJCPPi |C D T A I ■ PV iT Of." f p *^*r"Tlf" 

; KECDUER IrJ/OJT REuISTEPS 


- — - W — — ■ + * ' f Q 


PHA 


. - t u CI 1 C 


I 


1 "4Pfl ttnoafif 


LDA DDRi? 


C41C B6 


PL A 


nin r^uw ma 


PHA 


cjtu C110 BDOcDC 


STA DuR5 


i J iw l_ jriL 


• 


?35Q C420 66 


PL A 


1 T^n r^or 


.SET BIT 4 ID OUTPUT 


S360 C4S1 BD0O0C 


STA PORTS 


1360 C3A£ 




2370 C124 




1370 C3AC P910 


LDA HS10 


S360 C454 


ENABLE INTERRUPTS AND RETURN 


1360 Z 1. BB050C 


STA DDR2 


S390 C4S4 




1390 C3B1 




S100 C4B4 5B 


CLI 


1H00 C3B1 


{CLEAR BIT 1 


S110 C4S5 SO 


RTS 


1410 C3B1 




5420 C426 


< 


1H20 C381 A000DC 


LDA PORTS 


S430 C4SE 


{ ROUTINE TO PAUSE Y • 10 CYCLES 


1130 C3B1 29EF 


AMD K5EF 


S440 C4S6 




1410 C3S6 B0000C 


STA PORTS 


S450 C426 EA PAUSE 


NOP 


1150 C3B3 




5460 C4S7 EA 


NOP 


14B0 C3B9 


PAUSE B0 CYCLES 


S470 C4S8 EA 


NOP 


1170 C3B9 


I 


2180 C4S9 89 


DEY 


1160 C3B9 AOOB 


LDY «90Q 


5490 C45A DO FA 


BNE PAUSE 


1490 C38B B056C4 


JSR PAUSE 


cS00 C45C 60 


RIS 


1500 C3BE 




5510 C15D 00 0ELX 


. BYTE 0 


1510 C3BE 


;QET HI OH NVBBLE 


S5S0 C4SE 00 0ELY 


.BYTE 0 


15S0 C3BE 




5530 C12F 00 BUTTON 


.BYTE 0 


1630 C3BE AD00BC 


LDA PORTS 


5510 CM 30 


i 


1510 C3C1 OA 


ASL A 


5550 C430 


, INITIALIZE MOUSE READER 
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LI NEK LOG. OBJECT LABELS 



LINE 



LINE* LQC. OBJECT LABELS 



LINE 



£560 CM30 
8570 CI 30 
eseo CI 30 
2530 C430 78 
8600 C431 
8610 C431 

aeso CH3i 

5630 C431 A97F 
8640 C433 BDODDC 
2650 C436 BDODOD 
B660 CI 39 
5670 tM39 
86B0 C433 
5690 C439 ASFr 
8700 CH3B BDQ8DC 
8710 C43E A97F 



INITIALIZE 



;D1 SABLE INTERRUPTS 
5EI 

■CLEAR INTERRUPT nASK5 OH CIA'S 

LOA »*7F 
5TA ICR1 
STA ICR2 

';SET PORT TD OUTPUT 

1 

LOA MFF 
SIA 0DR8 
LOA M7F 



5750 
8730 
2^:11 
8750 
8760 
8770 
8780 

sen 

~- 1: I G 

BfiEO 
8930 
8BH0 
8850 
8B6C1 
WTO 



MHO 
C1H3 
C113 
CHI 3 
C443 
C445 
C44B 
C44B 
CM It 
C451 
C451 
CM 51 
C1S1 
ClS8 
C453 
C4S3 



BOOODC 



BUOEDC 

ecarac 

8D0EDD 



SB 
GO 



STA PORTB 

l&ll TIMERS TO DEFAULT UALUES 

lda **oe 

STA CRA1 
ST a CB81 
ST A CRA8 
STA CRB8 

^ENABLE INTERRUPTS AND RETURN 

CLI 
RTS 

'.END 



PROGRAM : MOUSE MANAGER 



05 10 REM MOUSE CODE *-THIS IS E 

SSENTIAL IF THE SAUE ROUTINE 
IS USED! I It I 
CC 50 REM LINES 10-70 CAN BE OH 

ITTED IF YOU DON'T UIANT TO S 

AUE THE CODE 
02 30 F0RA-0T062:READX:NEXT:G0S 

UB S50 

7A 40 PQKE133,B0:P0KE134,195:P0 

"KE174 , 83 : P0KE175 , 13B 
DA SO POKE 1B7,7:P0KE1BB,B 
17 GO POKE 1B3,10:POKE 186,B:RE 

11 POKE 186,1 FOR CASSETTE 
63 70 POKE 1B5,0:SYS6295H 
1A BO REfl MOUSE MANAGER DEMO PR 
OGRAM 

52 SO REM CCJOPYRIGHT 1387 OJ . I . 

SELLERS 
7A 100 REfl CLEAR SCREEN 
Al 110 PRINT"CCLRjPOKING IN DAT 

A " 

BB ISO REM POKE IN SPRITE DATA 
11 130 RESTORE: FQRS-832T0BS4: RE 
ADA : P0KE532B0 , A : POKES , A : NEXT 

SB 140 REM POKE IN MACHINE CODE 

35 150 G0SUB55O 
1C 160 PRINT"tCLR3 INSERT MOUSE 
IN JOYSTICK PORTS" 

51 170 PRINT"CDOWNjAND PRESS <S 
PACE> WHEN READY" 

6E 180 GETAS:IFAS<>" "THEN1B0 
3F 130 PRINT"CCLRj"; :P0KES3281, 
O 

CI 200 REM INITIALI2E MOUSE REA 
DER 

04 210 SYS50003 

52 220 REM INITIALIZE SPRITE 0 
45 230 P0KE2040, 13 

FE 240 U-5324B 
E7 250 POKEU+21,1 
83 260 REM INITIALIZE POSITION 
CI 270 X-160: Y-100:C-0 
FD 280 REM READ MOUSE 
CC 230 SYS50000:PR1NTDX,DY 
6C 300 REM DX-X CHANGE DY-Y CHA 
NGE 

38 310 REM FB-1 IF PRESSED 

70 320 X-X+DX: Y-Y+DY 

3B 330 REfl CHECK X AND Y LIMITS 



08 340 IFX<OTHENX-0 

10 350 IFX>511THENX-511 

FA 360 IFY<OTHENY-0 

62 370 IFY>255THENY-2S5 

44 380 IFO2SSTHENC-0 

B6 330 REM CALCULATE X UALUES 

70 400 X2-INTCX/256J:X1-X-256»X 
2 

2C 410 C-C*FB: I FC-256THENC-0 

36 420 F0KEU,X1:P0KEU+1,Y:P0KEU 
+16, X5 

IF 430 1FCCAND15J-0THENC-C+1 

07 440 P0KEU+3S.C 

75 450 G0T0230 

45 460 REM SPRITE DATA 

F8 470 DATAO, 0,0, 0,0, 0,0,0 

D6 480 DATAO, 0,0,0,0,0,0,8 

El 430 DATAO , B , 28 , 0 , 28 , 60 , 0 , 30 

12 SOO DATA126,34,53, 127,182, 25 

5,127,255 

58 510 DATA255 , 124, 73 , 31 , 120 , 12 

7,15,112 
05 520 DATA62,7,48,20,6, 16,0,4 
4B 530 DATAe.O.B.O.O.O.O.O 
2D 540 DATAO, 0,0, 0,0, 0,0 
95 S50 REM POKE IN MOUSE READER 
ROUTINE 

87 560 REM FROM SC350 TO SC452 

91 S70 D-50000:L-600 

F4 5B0 T-0 

AO 590 F0RX-1T0B 

17 600 READA: IFA— 1THEN660 

FE 610 P0KED,A:D-D+1:T-T+A 

7B 620 P0KE532B0, A: NEXT 

99 630 READA: IFA— 1THEN660 

FC 640 I FT< > ATHENPR I NT "ERROR IN 

LINE " ; L: END 
Fl 650 L-L+10:G0T05B0 
OA 660 IFD<>50258+1THENPRINT"AD 

DRESS ERROR": END 
2E B70 RETURN 

86 680 DATA76, 86 ,195,76,48 ,136, 

32, 163,872 
40 690 DATA195, 173,45, 136,162, 6 

8, 160, BB, 10B7 
30 700 DATA32, 120, 195, 173,46, 13 

6, 162,66,332 
7C 710 DATA160,83, 32, 120, 195, 17 

3,47, 196, 1012 
□E 720 DATA162, 70, 160,66,32, 120 

,135,36,301 
24 730 DATA72.134, 63,132,70, 163 

,255,72,373 



FF 740 DATA32 , 231 , 176, 104, 104, 1 

5,10,73,746 
C3 750 DATA255, 169,200,32, 162, 1 

73,76,155,1227 
7D 760 DATA135, 168,32, 162, 179, 1 

65,102,73,1076 
25 770 DATA25S , 133 , 102 , 166 , 71 , 1 

64,72,32,995 
54 780 DATA212, 187,96, 120, 173,0 

,220,72,1080 
B4 730 DATA173,2,220,72,169,16, 

141,2,735 
3A 800 DATA220, 173, 0 , 220, 41 , 233 

,141,0,1034 
Al BIO DATA220 , 160 ,8,32,38, 136 , 

173,0,827 
40 820 DATA220,10,10,10,10 1 141, 

45, 136,642 
46 830 DATA173, 0,220,3, 16, 141,0 
,220,779 

3B B40 DATA160 ,5,35,3b, 136 , 173 , 

0.220.B24 
60 850 DATA41 , 15, 13, 45, 196, 141 , 

45, 196,692 
FA 860 DATA173,0, 220, 41,239,141 

,0,220,1034 
05 870 DATA160, 5, 32, SB , 136 , 173, 

0,220,824 
11 BBO DATA10, 10,10, 10,141,46,1 

36, 173,536 
CG 830 DATAO, 220, 9, 16, 141,0,220 
, 160,765 

D3 300 DATA5, 32,38, 135, 173,0,22 

0,41,705 
F9 310 DATA15, 13,46, 195, 141 ,46, 

196,173,826 
EB 320 DATA25, 212, 201, 255, 208,1 

,44, 163, 111S 
OE 330 DATAO, 141,47,136, 104,141 

,2,220,651 
36 940 DATA104, 141,0, 220, 8B, 96, 

234,234, 1117 
FB 850 0ATA234, 136,208,250,36,0 

,0,0,824 

BE 360 DATA120.169, 127,141, 13,2 

20, 141 , 13,944 
CF 970 DATA221.169, 255, 141, 2,22 

0,163,127,1304 
3A 980 DATA141, 0,220, 169,8, 141, 

14,220,913 
DO 990 DATA141,15,220,141,14,22 

1,141. 15, SOB 
9E 1000 DATA221,BB, 36,-1 
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Sticky Cursors 




Here's an interrupt which gives a superior method of cursor control 



his is a ulilily lo allow a joystick, 
plugged into Port 2. to emulate the 
cursor keys. The program is inter- 
rupt-driven and resides in an unused 
area of memory. It works by check- 
ing the status of port 2 every so often 
and when it finds that the joystick is 
not centred, the appropriate control 
code is inserted, into the keyboard 
buffer queue. 



The joystick will perform the 
following functions: 



POSITION 

Centred 
Up 



PROGRAfl: STICKY CURSOR - C12B 




FUNCTION 
Nothing 

Move cursor up a 
line at a time 
Move cursor down a 
line at a time 
Move cursor left 
(with wrap around) 



10 FOR P - 4864 TO 5122 
20 t READ XS 
30 : POKE P.DECCXS5 
40 NEXT P 

1000 DATA 78 , A3 , OD , 8D , 14 , 03 , A3 , 1 
3, 80,15,03,58, 60, CE, Al , 13,FO,03, 
4C.65.FA 

1010 DATA A3,03,8D, Al, 13, AD.OO.D 

C , 80, A2, 13, 83, 10 , DO, 34 , AD, A2 , 13 , 
23, 01, DO 

1020 DATA 06,A3,4F,38,4C,BC, 13, A 

D, A2, 13, 23, 02, DO, 08, A3, 40, 38 ,4C, 
8C, 13, AD 

1030 DATA A2,13,23,04,D0,06,A3,S 
0, 3B , 4C , 8C, 13 , AD, AS , 13, 23 , OB , DO , 
CO, A3, 51 

1040 DATA 38,4C,BC 1 13,AD,A2,13.2 
3,01 ,00,06, AS, 31, 1B,4C,8C, 13, AD, 
A2. 13,29 

1050 DATA 02, DO, 06, AS, 11,18, 4C, 8 
C, 13, AD, A2, 13,23,04,00,06, A3, 3D, 



1B.4C.BC 

1060 DATA 13,AD,A2,13.2S,08,00,B 
C,A3,10,1B I 4C,BC,13 1 30,04 ( A2,1B, 
86,F0,BD 

1070 DATA 4A, 03, AS , DO , DO, 02, E6, 0 
0, 4C , 65 . Fft , 03. 03, W , 01 , 7F , 80 , OB , 
FF.4C.45 

10B0 DATA 14,20,4E,OA,AS,AA,A0,l 
E, 20 ,71, 03, 20, 82, 03,20,50, OA, 03, 
80, 48, AD 

1030 DATA 14, 20, FO, 03, 20, 38, 10,2 
0,F6,03,68,4C,E7,0A,3B,A5,3S.ED, 
08,20,85 

1100 DATA SB.AS.SA.EO.OS^O.OS.S 
B 1 FO,04.AS,05,8S,OC,20,4E,OA,AS, 
00, AO, IF 

1110 DATA 20,71,03,20,1C,13,A5,0 

^03,05^0,03,20,37,03, A3, 00, A6, 
3S.A4.3A 

1120 DATA 20,D5,FF,S0,4F,44,30,0 
D 



PPOGRArt: 5TICKY CURSOR - C64 



D3 10 FOR T - 40B54 TO 40353 
F2 20 READ A 
68 30 POKE T, A 
9E 40 NEXT T 
71 SO SYS 408S4 

25 100 DATA 120,169,171,141,20, 

3,163, 153 
AE UO DATA 141,21,3,88,163,149 

,133,55 

S3 120 DATA 169,159,133,56,96,2 

06,254,159 
DO 130 DATA 240,3,76,43,234,169 

.3, 141 

5S 140 DATA 254,153,173,0,220,1 

41,255,159 
64 ISO DATA 41,16,208,3,76.49,2 



34,173 

21 160 DATA 255,153,41,1,208,5, 
163,145 

82 170 DATA 75,242,159,173,255, 
153,41,2 

75 180 DATA 208,5,163,17,76,242 
,153,173 

E3 190 DATA 255,159,41,4,209,5, 
169, 1S7 

D2 200 DATA 76,242,159,173,255, 
153,41,8 

C7 210 DATA 208,132,153,23,141. 

113,2, 165 
C7 220 DATA 136,208,2,230,139,7 

6,43,234 
34 230 DATA 1,127 



Right 



Fire and up 



Move cursor right 
(with wrap around) 
Cancel insert and 
quote mode (CI 28 
only) 

Fire and down Clear from cursor to 
end of screen (CI 28 
only) 

Fire and left Clear from cursor to 
start of line (CI 28 
only) 

Fire and right Clear from cursor to 
end of line (C128 
only) 




Installing the C128 
interrupt 

Type in the Basic program (CI 28 
version), save and then run it. The 
program will then be installed. Save 
the machine-code from 4864 to 
5122 as a binary file. 

Type SYS 4864 to run the pro- 
gram and the joystick will emulate 
the cursor keys. In future when you 
need the utility it can be loaded 
directly into memory from the bina- 
ry file and run by 
typing SYS 4864. . 



Installing the Q%4\^ 
interrupt 



Type in the Basic program (C64 
version), save and run it. The pro- 
gram will then be installed. Type 
SYS 40854 to run the program and 
the joystick will emulate the cursor 
keys. The extra functions available 
on the CI 28 version are not catered 
for because they are not included in 
the operating system. The program 
resides from 40854 to 40959, so the 
top of Basic memory will be lowered 
when the program runs. 
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A host of useful suggestions to improve your 
programming prowess 



71 



he Commodore 64 harbours 
many secrets deep inside its memory 
banks. Here are 64 of the best but 
delve around and you may find 
many more. All the hints were re- 
vealed by poking and peeking 
around the memory. Some are old, 
some are new but all will improve 
programs and programming beyond 
your wildest dreams. 

Although these tips are princi- 
pally for the Commodore 64, the 
technical section will help you to 
convert many of them for the CI 28. 

1 High and low bytes in decimal 

The low byte is derived from the 

high byte calculation: 

H1BYTE = INT(location/256) 
LOBYTE - location - (HIBYTE 
• 256) 

2 DEC to HEX conversion 

10 INPUT "NUflBER IN DECIMAL" ; DE 



C: IFDEC>65535THENPRINT"T00 BIG 
":GOTO10 

50 F-4096: FORA-1T04 

30 D*-OEC/F:DEC-OEC-D*-s»F 

40 D?;-0*4«-4B: IFD"-s>57THEN0*-Dfc+7 

50 HXS-HXS*CHRSCD^.D:F-F/1B 

60 NEXT 

70 PRINT"S"HX$ 

3 HEX to DEC conversion 

10 INPUT "NUMBER IN HEX";HXS 
B0 L-LENCHXS) 

30 IF LEFTSCHXS,n«"$"THENHX$- 

RIGHTSCHXS,L-13:L-L-1 

40 IFL>4THEN 10 

50 IFU4THEN HXS-"0 "+HXS : L-L+l 
: BOTO50 

60 F0RA-1T04;D-ASCCMIDSCHXS,A, 
1DD-48 

70 IFD>9THEND-D-7: IF D> 15THENP 
RINT "NUflBER ERROR ": GOTO10 
80 DEC-DEC*16+D:NEXT 
90 PRINTDEC 

4 Using ROM routines 

Locations 780 to 783 represent the 
A, X, Y and status registers respec- 



tively. By poking suitable values to 
the relevant location, the registers 
can be set before ROM routines are 
called. 

5 Double byte HEX to DEC 

10 INPUT"LOUJ BYTE LOCATION IN 
DECIMAL"; LOG 

20 P0KE7Bl,PEEKCL0CJ:REn LO BY 

TE INTO X REGISTER 

30 POKE7B0,PEEKCLGC*15:REn HIG 

H BYTE IN A REGISTER 
40 SYS48589:REM PRINT A & X AS 
DECIMAL IN ASCI I 

6 Sub routine 48589 

This is where the LIST routine goes 
to convert line numbers to decimal. 
It then prints the value to the screen. 
Use it for datamaker programs or 
for any routine where a decimal 
number has to be printed in ASCII 
characters. The A-registcr carries 
the high byte value and the X- 
register carries the low byte. 
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7 Simulated PRINT@ command 

10 PR1NT"CCLR3" 

E0 R0UI-ie:C0LUnN-15 

30 POKE 214, ROW 

40 POKE eil.CDLUnN 

50 SYS5B73a 

60 PRINT"HI THERE1 " 

8 Alternative PRINT(a> command 

10 print"CCLr:" 

50 RQW-ie:CDLUnN-lS 

30 POKE 781, ROW : REfl X REG 

40 POKE 7B2 , COLUMN : REM Y REG 

45 POKE 7B3,PEEKC783)AND 254 

50 SYS5B634 

60 PRINT"HI THERE! " 

9 Finding the cursor 

A similar routine can also locate the 
cursor: 

10 PRINT"CCLR,D0UIN6,RIGHT6D"i : 
REM 6 ACROSS ftND 6 DOWN 

20 POKE 783 , PEEKC7B3DDR1 

30 SYS5B634 

40 RQUJ-PEEKC7B13 

50 CDLUnN-PEEKC782J 

60 PRINTROW.CDLUriN 

10 Code space 

Machine code routines are faster if 
they access zero page locations but 
the Basic operating system leaves 
vcrv few possibilities. Locations S02 
and SFA to $FE (250-254) arc nor- 
mally unused but take care when 
using cartridges because they some- 
times use these bytes. 

Location $FF can also be used 
but it is best to use this for transient 
values. 

Also in low memory. S02A7 to 
$02FF (679-767 can be used for 
small coded programs and disk users 
can access the cassette buffer at 
$0334 to S03FF (820-1023). Cas- 
sette users can only use $0334 to 
S033B (820-827) and S03FC to 
S03FF (1020-1023). 

$C000 to SCFFF (49 1 52-53247) 
is the coder's paradise, four kilo- 
bytes of protected memory which 
doesn't exist as far as the C64*s 
operating system is concerned. 

1 1 Room at the top 

Extra protected space can be created 
by lowering the top of memory: 

POKE 55.0:POKE 56.128:CLR 

Location 56 holds the high byte 
and 55 takes the low byte value. In 



the example this gives decimal 
32768 (hex $8000). 

12 Raising Basic 

In a similar way the bottom of Basic 
can be raised: 

POKE 43, 1 :POKE 44. 1 6: POKE 
4096.0:CLR 

The location is the new start of 
Basic+1 or 4097 ($1001). Location 
4096 ($1000) must contain a zero 
otherwise a syntax error will occur 
when the RUN command is used. 

13 Memory SAVE 

Once a machine code program has 
been poked into memory this rou- 
tine will save it: 

10 REM FILENAME 

15 FL-B:LS-0:HS-ie*16:LE-6:HE- 
15»16 

20 POKE 183, FL 

30 POKE 1B7 , PEEK C 43 5 +6: P0KE18B 
, PEEKC44 1 

40 P0KE193,LS:P0KE194 I HS 
50 P0KE174,LE:P0KE175,HE+1 
50 P0KE1B6 , B : REM B FOR DISK 
70 POKE18S,0:REn SECONDARY ADD 
RE5S 

80 SYS62954 

The actual filename for the save 
should be stored where 'filename' 
appears and FL is the number of 
characters in the name. LS, HS, LE 
and HE are the high and low bytes of 
the code block's start and end 
locations. 

14 Adding programs together 

Frequently used subroutines can be 
added to a program in memory'. 
First of all, PEEK locations 43 and 
44. noting down the values (usually 
one and eight). POKE 43, 
PEEK(45). and POKE 44. 
PEEK(46), to set the start of Basic to 
the end of the program in memory 
and then enter NEW. Next, load the 
subroutine as normal using .D (rath- 
er than ,D.l). where D is the device 
number. Finally, the original values 
can be poked back into 43 and 44. 

One word of warning, the line 
numbers of the appended subrou- 
tine must start at a higher value than 
the program in memory. Failing 
this, use a renumber routine on the 
program taking care with GOSUB, 
GOTO and ON commands. 



15 Directory tricks 

LOAD "$$".8 only loads the header 
and 'free blocks' lines. 

LOAD "$A*",8 will only load 
programs starting with the letter 
before the asterisk. 

LOAD "$*=S" will load only the 
SEQ files. Similarly with P, U, R 
substituted for S, PRG, USR or REL 
files can be selected. 

16 Scratching around 

To scratch all the files on a disk 
within a particular category (PRG. 
SEQ, REL, USR) use the form: 

OPEN l.S.lS/'SO^S-P": 
CLOSE I 

17 Which device? 

To automatically sense, from within 
a program, the device which is cur- 
rently in use. DEV - PEEK( 1 86) will 
store the number of the last device 
used as a variable for use in file 
operations. 

18 Closing files 

To make sure all files are closed use 
the CLALL call in the Kernal with 
SYS 6551 1. This closes all open files 
but be careful if CMD has been 
used. Sometimes a mere CLOSE 
command leaves the screen editor in 
a confused state. To exit safely use 
the format: 

PRINT#4:CLOSE4 

19 Selecting a bank 

To point the VIC chip at a different 
block of memory: 

POKE 56578, PEEK(56578) 
OR 3 

POKE 56576, (PEEK( 56576) 
AND 252) OR a 

Where 'a' is 3 for the normal 
(default) bank from the start of 
memorv to 16383, 2 for 16384 to 
32767, 1 for 32768 to 49 1 5 1 or 0 for 
49152 upwards. 

20 Moving the screen 

Relocate the screen position within 
a bank with: 

POKE 53272, (PEEK(53272) 
AND 15)ORb 

Where *b' lakes a value from 
Table 1 and the actual location is the 
bank location plus the 'b* value. 
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TABLE 1 - 


- Bank location values 






Start 




Start 


b 


Location 


b 


Location 


0 


0 


128 


8192 


16 


1024 


144 


9216 


32 


2048 


160 


10240 


48 


3072 


176 


11264 


64 


4096 


192 


12288 


80 


5120 


208 


13312 


96 


6144 


224 


14336 


112 


7168 


240 


15360 



21 Moving the characters 

To relocate the 2K area from which 
RAM character information is 
taken: 

POKE 53272. (PEEK(53272) AND 
240) ORc 

Where V has a value from 
Table 2. 



TABLE 2 - Character relocation table 




Start 


c 


Location 


0 


0 


2 


2048 


4 


4096 


6 


6144 


8 


8192 


10 


10240 


12 


12288 


14 


14336 



22 Relocating character data 

10 POKE 56334, PEEK C 56334) AND S 
54 

20 P0KE1,PEEKC1)AND251 
30 FORA-0TQE047 

40 POKE NEULOC+A , PEEK C 53348)+ A 

50 POKE1 , PEEKC 1 )0R4 

60 P0KE56334,PEEKC56334)0R1 

This routine cannot be stopped 
because the keyboard is disabled in 
line 10. Substitute a value derived 
from Table 2 for 'newloc'. 



23 GET with cursor 

10 GET A$:POKE 204,0:IF 
A$=""THEN 10 

24 Display controls in PRINT 

POKE212,I:PRINT"[CLR] 
HELLO" 

25 Best hi-res location 

Set the VIC chip to Bank 4 and the 
screen to location 57344 (SE000). 
The ROM doesn't have to be 



switched out because the screen 
"looks* through it. A routine is need- 
ed to switch out the ROM if the 
screen needs to be PEEKed but 
POKEs can be performed with the 
ROM in place. 

26 Easy INPUT 

10 INPUP'DO YOU WANT 
TO SAY YES[RIGHT2]Y 
[LEFT3]";A$ 

27 Position in colour RAM 
PRINT PEEK(243) + 256* 
PEEK(224) 

28 Position in screen RAM 
PRINT PEEK(209) + 256* 
PEEK(2l0)-t-PEEK(211) 

29 Switch screen off/on 
Off: POKE 53265, 

PEEK(53265) AND 239 
On: POKE 53265, 

PEEK(53265)OR 16 

30 Supervision 

When using screen routines use base 
addresses for the screen and colour 
RAM, CO-55296:SC=1024. This 
means that a POKE to the video can 
be colour co-ordinated: 

POKE SC+50.characier:POKE 
CO+50,colour 

31 Key detection 

PEEK location 653 to see if the 
SHIFT (value 1 >. CBM (2) or CTRL 
(4) keys have been pressed. If two 
keys are held down at the same time 
the value found in 653 is the sum of 
the key values. For example, a value 
of five means that the CBM and 
CTRL keys are down. 

32 Clearing the key buffer 

Before detecting a keypress, make 
sure that the key buffer is empty by 
POKE 198,0. 

33 Filling the key buffer 

Loading from inside a program has 
its drawbacks. A better way is to 
place the loading sequence in the 
key buffer so that the next program 
loads as though the commands have 
been typed in. 

The buffer queue is located at 
631 and continues through the fol- 
lowing nine bytes. This means that 



only ten characters can be stored 
here as ASCII codes. A routine such 
as this would suffice: 

10 PRINT n CCLRaLCS0: n +CHRSC34)+ 
"ZULU"+CHRSC34)+" , B, 1CDOWN43": 
PRINT"RUN" 

B0 PDKE631,13:P0KEB32,13:P0KE6 
33,13 

30 P0KE19B.3 

This would appear at the end of 
the First program and would load a 
program called ZULU. To save on 
buffer space, the commands are 
written to a cleared screen. They 
have to be correctly spaced to allow 
for the on-screen messages that the 
LOAD routine displays. 

The buffer is poked with a 
HOME command to place the cur- 
sor on the top screen line and this is 
followed by two returns. Location 
198 has to be told that these three 
characters are waiting in the buffer. 

When the program ends the first 
return automatically executes the 
LOAD command and then the load- 
ed program automatically runs. 

A modified version of this could 
load a series of machine code rou- 
tines and execute a SYS command 
at the end. With a ten character 
buffer there could be 9 returns 
stored; that means nine commands 
executed after the first program 
ends. 

34 List protect 1 

To protect a program from prying 
eyes use POKE 775, 200. This pre- 
vents listing and can be restored by 
poking the original value of 167 
back again. 

35 List protect 2 

Another protection method is to use 
a REM statement which contains a 
shifted L. When the program is 
listed it produces a syntax error after 
the statement. This is easily ovcrid- 
den by listing the program and 
pressing the return key on the listed 
line. Using this method in conjunc- 
tion with the next method can im- 
prove this command. 

36 List protect 3 

A REM statement with a few delete 
symbols (reversed T) can create 
havoc with the LIST command. 
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To insert a delete symbol, type 
REM and then two pairs of inverted 
commas, delete the second pair of 
quotes. After the remaining set of 
quotes, press the insert iev (shifted 
INST/DEL key) once for each char- 
acter of the current line which you 
want to hide. Next press the delete 
key the same number of times. 
When the program is LISTed and 
deletes will each erase a character 
which lies to their left. For example: 

10 SYS49152:REM"[DEL13r 
REM[SL] 
would pull the second REM over the 
SYS command, making the line look 
and behave like a REM with a 
shifted L. 

37 Key repeat 

The only keys which will repeat 
when held down are the cursor keys 
and spacebar. Poking a value of 1 28 
to location 650 makes all keys repeat 
but poking 64 instead will prevent 
any of the keys from repeating. 

38 Repeat delay 

If all keys are set to repeat, the gap 
between the first character appear- 
ing and the row of repeats can be 
altered by poking different values to 
location 65 1 . The maximum delay is 
given when the poked value is 255, 
causing a delay of around four 
seconds. 

39 UnNEW 

Accidentally NEWing a program be- 
fore it is saved does not mean that 
the program is lost forever. The 
easiest way to recover is to reset the 
line link vectors, rechain the pro- 
gram and restore the end of program 
pointer. 

One way to do this is to store a 
program at the lop of memory. 
Enter the following line: 

POKE 43,l:POKE 

44.I59:POKE46,l59:POKE 

40704,0:NEW 

This sets the start of Basic at 
40704 (S9F00). The following UN- 
NEW program can not be typed in 
and saved with ".dev. 1 " where dev 
is 1 or 8 for tape or disk. 

10 FORA-20S0TQ40703 
20 GDSUB50 



30 NEXT: I FA-40704THENEND 

35 fi-INTCB/5SG) : B-B-fl»eS6+3 

40 P0KE251.B: PDKE2S2.fi 

50 P0KE44.8: POKE2050 , 255 : SYS42 

231 : P0KE4S , PEEK C 251 ) : PDKE46 , PE 

EKC252):CLR:EN0 

60 lFPEEKCfi3-0fiNDPEEKCA*lD-0AN 
DPEEKCA+23-0THENB-fi:fi-43333 
70 RETURN 

The program will alwavs load at 
40704 as long as the Wis added. 

When a program is to be restored 
after NEW. enter the line of pokes 
mentioned at the beginning of this 
section and load the UNNEW 
program. 

The program can now be RUN 
but it may take a while before the 
READY prompt appears again. 
When it does, the program will have 
been restored. 

40 Extending Basic 

When a Basic program is decoded by 
the operating system, it calls in the 
Basic lines for analysis in the input 
buffer starting at $0200 (512). Part 
of the decoding routine lies in RAM 
and this is where an extra routine 
can be wedged in. 

This routine is stored at $0079 
and looks like this: 

$0073 INCS7A 

$0075 BNE $0079 

$0077 INC $7B 

$0079 LDA $0201 

$007C CMP #$3A 

$007E BCS $008A 

$0080 CMP #$20 

$0082 BEQ $0073 

$0084 SEC 

$0085 SBC #$30 

$0087 SEC 

$0088 SBC #$D0 

S008A RTS 

A suitable break point can be 
created bv moving CMP #$20 to 
$007C and BEQ $0073 to $007E. 
Location $0080 can now point to 
the new decoding routine (eg. JMP 
SC000). 

The routine grabs a byte from the 
buffer and attempts to decode it. By 
using a prefix on all of the new 
commands, decoding becomes easi- 
er. The 'at' symbol located next to 
the asterisk on the keyboard is a 
good prefix so the new routine could 
look like this: 

SC000 CMP #$40 

SC002 BEQ $C012 



$C004 CMP #$38 
$C006 BCC $C00B 
$C008 JMP$C0H 
$C00B SEC 
$C00C SBC #$30 
SC00E SEC 
$C00F SBC #$D0 
SC011 RTS 

$C102 DECODE ROUTINE 
The decode routine can call extra 
bytes from the buffer with JSR 
$0073 until a colon is detected. 
After execution of the command the 
new routine should hand back con- 
trol to the normal operating system 
with JMP $0073. 

41 Setting up interrupts 

Once written, an interrupt routine 
can be called by: 
SEI 

LDA #$1F 
STA SDC0D 
STA $DD0D 
LDA $DC0D 
LDA $DD0D 
LDA #$low byte 
STA $0314 
LDA #$high bvte 
STA $0315 
LDA #$01 
STA $D01A 
CLI 
RTS 

The high and low bytes refer to 
the location of the new interrupt 
routine. Somewhere in the new rou- 
tine three extra lines should be in- 
cluded. The first two are: 

LDA #$01 

STA $D019 

This can be located anywhere in 
the new code but the third extra line 
should be used instead of RTS: 

JMPSEA31 

This checks the keyboard to see 
if an input has occurred. If the 
keyboard check isn't necessary' ihe 
routine should end with: 

PLA 

TAY 

PLA 

TAX 

PLA 

RTI 

42 WAIT problems 

The WAIT command is probably 
the least used and most misunder- 
stood Basic term. Its use is princi- 
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pally for I/O actions because it has 
to use a memory location that can be 
changed externally. 

The most common applications 
are to test for a datasette or key- 
board keypress: 

WAIT 1,32,32 

WAIT 197.8 

The first key is the datasette 
sensor which waits until bit 5 of 
location 1 is set by pressing any of 
the motor keys. 

The second command peeks into 
the keypress register. Any key de- 
code value which sets bit 3 will 
terminate the pause, so 'A' (value 
10) will be accepted but *R' (17) 
would have no effect. 

Another use is to detect the 
pressing of the CTRL. CBM or 
SHIFT keys through location 653. 
WAIT 653,1 will detect the SHIFT 
key, WAIT 653,2 finds the CBM key 
and WAIT 653,4 is the CTRL com- 
mand. Alternatively, WAIT 653.6 
will detect either the CTRL or CBM 
keys. 

43 Wait a jiffy 

One internal use of WAIT is to 
create a time delay when used with 
the TI$ register. 

TI$="000000":WAIT 161,1 will 
give a 4 second pause. 

44 Unofficial pause 

The pause routine called by the tape 
loading routines can be used as an 
alternative to the usual 'press any 
key' pause. SYS 58592 followed by 
POKE198.0 will give an infinite 
pause and forget which key was 
pressed. The key must be one of 
those to the left of the keyboard. 

45 Colour change 

Character colours can be changed 
through control codes in PRINT 
statements but a better way for 
certain functions is to poke the 
colour value direct to location 646. 

46 Flash data 

It can be very boring waiting for a 
program to read in data. Sometimes 
it can take so long that you start to 
wonder if the computer has hung up. 
One way to reassure the user is to 
add an extra POKE command to 
flash the border. The nice thing 



about this location is that it will 
accept any value up to 255 without a 
murmur even though there are only 
sixteen colours to choose from. 

For numerical data POKE 
53280.A will create a border flash if 
A is the data value which has just 
been read in. If the data is greater 
than 255. a small division routine to 
keep the numbers down to accepta- 
ble values can be included. 

With string data a modified ver- 
sion can be used taking ASC(AS) as 
the value. 

47 Screen shake 

One less serious function of location 
53270 can be shown with this line: 

FOR A = 0 TO 255:POKE 
53270.A:NEXT 

The screen shakes as though a 
violent earthquake was stirring in- 
side the 64. For added effect, poking 
A to 53281 will really blow your 
mind. 

48 Reset prevention 

The RUN/STOP with RESTORE 
reset can be prevented by POKE 
808,225. The function can be re- 
enabled by POKE 808,237. 

49 Cold restart 

When a program has been altering 
the start of Basic and various other 
parameters, the easiest way to get 
the C64 back to normal is by using 
SYS 64738 instead of the END 
command. 

50 Scrolling screens 

An upwards screen scroll can be 
forced at any time by SYS 59626. 

51 Making spaces 

SYS 59749 will open up a screen line 
beneath the current cursor position, 
effectively scrolling the screen 
downwards. 

Combining this routine with the 
normal scroll, a routine can be de- 
vised to give quite stunning effects. 

10 PRINT "C HOME, YELLOW , 5F40 , C7D 
" : PDKE214 , 255 

20 FORA»0TO23;SY559749:NEXT 

30 FDRA-0TD1300: NEXT 

40 FORA-0TO25:SYS59626:NEXT 

50 FORA-1024 TO2023 : POKEA , A-IN 

TCfl/55B]»B56:NEXT 

60 GOTQ10 



52 Screen flipping 

Location 648 directs the operating 
system to the current screen area. 

10 PRINT "CCLRDTHIS IS SCREEN 1 
■■ 

30 PRINT"PRESS ANY KEY " 
30 UAIT1SB, 1 

40 P0KES657B, PEEK C 56578 )DR3 
50 GOSUB160 

60 PRINT"ECLR3THIS IS SCREEN S 
CDQUIN33 " 

70 INPUT"TYPE ANYTHING IN"; AS 
80 GOSU3200 

90 PRINT"CHOnE,OQUJN33BACK AG A I 
N" 

100 PRINTAS 
110 FORB-1TD10 

120 FDRA-0TO1000:NEXT:GOSUB]B0 

130 FDRA-1TO1000:NEXT 
140 GOSUB200 
150 NEXT : END 
160 PrJKE648,132 

170 POKE56S76, CPEEKC56576)AND2 

52 30R1 

180 PDKE53272, CPEEKCS3272)AND1 
S30R16 
190 RETURN 
200 PQKE648.4 

210 P0KE5657G,CPEEKC5657B3AND2 

52>0R3 

220 RETURN 

53 Open files 

With complex programs, it's best to 
keep track of the number of open 
files. PEEK( 1 52) will reveal the cur- 
rent number of active files. 

54 Motor kill 

To stop the datasette motor at any 
time. SYSSFCCA. 

55 String grabbing 

Strings can be pulled out of memory 
by using the ROM routine at 43806. 
The string must end with a quota- 
tion mark or a zero and the start 
address is stored in the accumulator 
(780) and Y register (782) in low 
byte/high byte format: 

10 REM "WHO STOLE THE BYTES? " 

- - if 

20 POKE780,11S:POKE782,22B:SYS 
43806 

30 POKE7B0,96:POKE782,22B:SYS4 
3806 

40 PRINT: PRINT 

50 PDKE780,B:POKE782,8:SYS43B0 
G 

56 Last filename 

The name of the last file to be loaded 
into the computer can be found 
from a ROM routine which the 
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computer uses to print the 'search- 
ing for' message: SYS 62913. 

57 Faster Basic 

Maintaining the screen is a time 
consuming job for the 64. Complex 
calculations can be speeded up by 
five percent if the screen is blanked 
out first: 

POKE 56325, PEEK.<56325) 
AND 239 

To get the screen back again the 
command becomes: 

POKE 56325. PEEK(56325) OR 

16 

58 Memory configuration 

Switching ROMs in and out of the 
64 memory is controlled by the first 
three bits of location 1. 

Bit 0 controls the Basic ROM at 
40960 (SA000) 

Bit 1 switches the Kernal ROM 
at 57344 ($E000) 

Bit 2 is responsible for the char- 
acter ROM at 53248 (SD0OO) 

59 One-line clear 

A partial screen clear can be 
achieved by using part of the in-built 
screen clear command. The row to 
be cleared is poked into the X 
register (780). Remember that the 
numbering starts with line 0. 

10 FOR A- 1 024 TO 2023: 
POKE A, I: NEXT 

20 FOR A=5 TO 20: POKE 
781, A 

30 SYS 59903 

40 NEXT 

60 Line snatching 

The screen routines can also be used 
for line grabbing. 

Location 59855 is the start of a 
routine which will copy a line from 
anywhere in memory and place it on 
the screen. The only thing to remem- 
ber is that the data must be written 
in screen poke values and be 40 
characters long. 

The low/high byte information 
for the start of the line is poked into 
locations 172/173. 

POKE 172. 0:POKE 173, 8:SYS 
59855 

The line is printed at the current 
cursor position which should be set 
before the routine is called (see tip 
7). 



Used with imagination, this rou- 
tine can be used to create special 
effects such as screen rotation or a 
one line scroll. 

61 Wot. no query* 

Sometimes a question mark seems 
odd when an input is required. Not 
all inputs are questions so why 
should there be a question mark? 

POKE 19,1 before using INPUT 
will cure the problem. 

62 Tape headers 

The cassette buffer is a misnomer, it 
is actually the tape header buffer. 
When the header is FOUND switch 
off the datasette and press RUN/ 
STOP. Run the following program 
to find out what's in the buffer. 

10 CB-B5B 

20 S-PEEKCCBJ 

30 Lfl-PEEKCCB+1 D+PEEKCCB+2 J*2S 
6 

40 EA-PEEKCCB+33*PEEKCCB+4J»2S 
5 

50 FQRA-CB+5TGCB+50 

B0 FS-FS*CHRSCPEEKCfi>J:NEXT 

70 FDRA-CB+21TD1019: IFPEEKCA)- 

50THEN90 

B0 MC-1 

90 NEXT 

100 print"e:clr,odu;n,spci53Tape 

INFO" 

110 PRINT"CSPC15,SE93" 

120 PRINT"CDOUlN33SECONDORY ADD 

RESS -";S 

130 PRINT"CDDliJN:STORT ADDRES5C 
SPC53=";LA 

140 PR 1 NT " C DQWN 3 END flDDRESSCSP 
C7:-" ; EA 

150 PRINT'CDOUNDFILENPinECSPClO 

:P0KE215,1:PRINTFS 
160 I FMCTHENPR I NT " C DOWN 1 flflCH I N 
E CODE IN RESIDENCE" 

63 Controlled Print 

It's no secret that control codes can 
be used for changing the print colour 
but have you tried non-colour con- 
trol characters. After typing PRINT, 
open quotes, hold down CTRL and 
a letter and see what happens when 
the program runs. 

CTRL M can't be used because it 
does an automatic shifted return 
and erases the rest of the line that 
you're trying to enter. CTRL N 
automatically switches the comput- 
er into lower case. 

64 FAC facts 

Floating point is difficult to under- 
stand but can easily be used by 
machine code routines. 



The conversion of the numbers is 
performed by the routine at SB391. 
It takes a number stored in the Y/A 
registers in low/high byte format 
and stores it in a special register 
known as FAC#I (Floating point 
Accumulator). If two numbers are 
to be operated on they must be 
transferred in the correct order to 
FAC#1 and FAC#2. 

To transfer a number from 
FAC#1 to FAC#2 the routine at 
$BC0F is used. This is shown in the 
example routine which divides 1000 
by 4 in hex. 

LDA #$03 

LDY #$E8 

JSRSB391 

JSR SBC0F 

LDA #$00 

LDY #$04 

JSRSB391 

JSR$BB12 

JSR $BDDD 

LDY #$05 
*LDA $0100,Y 

STA $00F9,Y 

DEY 

BNE * 

RTS 

To convert the result in FAC#1 
into a usable form, $BDDD returns 
the result in ASCII to $0100 from 
which it can be stored and used, in 
this case from location $FA. 

Other useful routines are 
available: 

$BBFC transfer FAC#2 to FAC#1 
SB86F add FAC#1 to FAC#2 
$B853 subtract FAC#1 from 

FAC#2 the result is stored 

in FAC#I 
$BA30 multiply FAC#1 by 

FAC#2 and store the result 

in FAC#1 
$BB12 divide FAC#2 by FAC#1 

and store the result in 

FAC#1 

$BF7B raise FAC#1 to the power 

FAC#2 and store the result 

in FAC#1 
$BF7 1 calculate the square root of 

FAC#1 and store the result 

in FAC#1 
If you discover an interesting rou- 
tine for the Commodore 64, why not 
let everyone in on the secret and 
send it to: Tips for the Serious User, 
Your Commodore, ASP Ltd, 1 
Golden Square, London W1R 3AB. 
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TEXT SCREEN DUMP 



1/1 



This utility will dump the 
current text screen from inside a 
Basic program. It reads the 
location where the screen is 
stored and translates them into 
ASCII code values ready for 
printing. 

Place the program inside a 
listing and the command GOTO 10 
will set the process in motion. 



10 REM TEXT SCREEN DUMP 

20 REM BY ANDREW GORRIE 

30 FAST : P$=CHR$(16) : A$="" : 

OPEN4,4,7 

40 AA=1024:FOR P=0 TO 24 

50 FOR N=AA TO AA+39 : GOSUB 60 : 

NEXT : AA=AA+40 : PRINT#4,P$ "15" 

A$: NEXT P : SLOW : END 

60 IF PEEK(N)>63 AND PEEK(N)<91 

THEN Q=32 

70 IF PEEK(N)>128 THEN Q=-128 

80 IF PEEK(N)<26 THEN Q=64 

90 A$=A$+CHR$.(PEEK(N)+Q) : Q=0 : 

RETURN 
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RESTORE BORDER CHANGE 
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Running this program means that 
the border can be changed by 
pressing the RESTORE key. The 
colour cycles through to a new 
value for each press of the key. 

The program works by resetting 
the STOP routine vector at 
808-9. By altering these you can 
point the restore key to any 
routine you like. The border 
change routine has been chosen to 
highlight a side effect of this 
method. When a program is loaded 
or saved, the border changes as 
the ROM routines call on the STOP 
routine while performing their 
tasks . 



Pressing RUN /STOP with restore 
will deactivate the border 
routine and POKE 808,0: POKE 
809,192 will activate it. 



10 REM RESTORE KEY BORDER CHANGE 

20 C=0:FOR 1=0 TO 5: READ A:POKE 

49152+I,A:C=C+A:NEXT 

30 IF C<>1037 THEN PRINT "ERROR IN 

LINE 40" : END 

40 DATA 238,32,208,76,237,246 
50 POKE 808,0:POKE 809,192 
60 PRINT"PRESS RESTORE" 



r 



A Bit More 



Turn your C64 into a hi-res machine with a bitmap, 
1 6 sprites, a redefinabk character set, 8K of storage 
plus 21 commands - hut retaining 36K for Basic! 



his utility combines two ideas in 
the one program. Firstly, the 
memory map is reconfigured so that 
the screen, character set, and bitmap 
are in Bank 3 (from 49 1 52 to 65535) 
and, secondly, an arsenal of 21 
machine-code commands is loaded 
into the area of memory once used 
by the screen (from 1020 to 3794). 
the start of Basic being moved up to 
3795 to protect it. If you have a look 
at- the memory map provided you 
will see that almost the whole of the 
memory is now usable. The excep- 
tions being the I/O area from 53248 
to 56344 and the area from 0 to 
3494, which still leaves some 57945 
bytes free. 

The program is in two parts. The 
first, called MCLOAD, is stored 
from 680 to 762 and forms a 
machine-code loader which sets the 
start of Basic memory to 3795 and 
then loads in the main program, 
called MCFILE, and calls the recon- 
figure command (SYS 1020), finally 
ending with NEW to set the Basic 
pointers correctly. 

MCFILE is the program contain- 
ing the machine-code commands 
and consists of a jump table (from 
1020 to 1083) for the command 
routines, followed by the routines 
themselves between 1086 and 3794. 

The following is a detailed list of 
all the new commands available. 
RECONFIGURE - 
SYS1020 

This is the command that sets up the 



new memory configuration and can 
be used at any time. The screen, 
sprite pointers, sprites and bitmap 
maintain their relative positions but 
move up into Bank 3. 

The screen is at 
1024+49 152=50 176, the first sprite 
pointer is at 2040+49152=51192, 
sprites 0-15 are at 0*64+49152= 
49152 to 15*64+49152=50112 and 
the bitmap is at 8192+49152= 
57344. 

The character set is now in RAM at 
51200 to 53248 and consists of the 
first 256 characters of the normal set 
but it can be redefined at any time. 
RASTER ON - 
SYS1023 

The raster interrupt routine is 
turned on with this command and 
can be used for both split-screen 
graphics and sound as detailed later. 
It is not recommended that you 
leave the raster interrupt routine 
running when using the LOAD and 
SAVE or the MEMORY MOVE and 
MEMORY FILL commands. 
RASTER OFF - 
SYS1026 

This command is obviously to turn 
off the interrupt routine. 
SPLIT-SCREEN - 
SYS1029, 
<0 or 1-200> 

This command is used in conjunc- 
tion with the RASTER ON com- 



mand to set up a split-screen where 
the top part is bitmapped while the 
rest is the normal screen display. It 
requires one parameter which sets 
the split to a screen line between 1 
and 200. A value of zero turns the 
split-screen off. 
BITMAP ON - 
SYS1032 

This turns on the full screen bitmap. 
If a full bitmap and an interrupt are 
required at the same time for 
running the sound routine, then 
the SPLIT-SCREEN command 
SYS 1029,200 should be used rather 
than this one. If at any time this 
command does not appear to be 
working, check that the raster rou- 
tine has been switched off first be- 
cause they won't work together. 
BITMAP OFF - 
SYS1035 

Turns off the bitmap. The same 

rules apply to these interrupts as 

those detailed in the BITMAP ON 

command. 

CLEAR BITMAP - 

SYS1038 

This command clears the complete 
bitmap. If you want to clear only 
parts of a bitmap see the MEMORY 
FILL command and Example 3 in 
the DEMO program. 
COLOUR BITMAP - 
SYS1041 

The complete bitmap is filled with 
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the current colour stored in 254, this 

is set with the SET CURRENT 

COLOUR command. 

SET CURRENT COLOUR - 

SYS1044 t <0-15>,<0-15> 

Use this command to set the display 

colour. It requires two parameters, 

the first is the plot or drawing colour 

using the standard colour codes and 

the second is the background colour. 

PLOT POINT ON BITMAP - 

SYS1047,<0-319>,<0-199>, 

«M-2> 

Points on the bitmap screen will be 
plotted in the current colour. Three 
parameters are required - the first is 
the X co-ordinate between 0 and 
319, the second is the Y co-ordinate 
between 0 and 199, the third is the 
mode which can be zero to unplot or 
erase a point, one to plot a point or 
two to test if a pixel is on or off. If 
the pixel is off then location 2 will 
contain a zero, if the pixel is on then 
it will contain the number 100. 
DRAW LINE - 
SYS1050, 

<0-319>,<0-199>,<0-319>, 
<0-199>,<0-l> 
To draw lines on a bitmap, this 
command can be used with its five 
parameters. The first two are the 
starting X and Y co-ordinates of the 
line, the next two are the end of line 
X and Y co-ordinates, the last is the 
mode, which can be either zero to 
erase or one to plot. 
DRAW CIRCLE - 
SYS1053, 

<0-319>,«M99>,<0-129>, 
<0-l> 

Here is the command which draws 
circles from four parameters. The 
first two are the X and Y co- 
ordinates of the centre of the circle, 
the next is the radius of the circle. 
The smallest circle that can be 
drawn has a radius of one and the 
largest has radius 129. The last 
parameter is once again the mode, 
either zero or one for erasing or 
plotting. 

FILL BITMAP - 
SYS10S6, 

<0-319> ( <0-199>,<0-l> 
This is the command that fills select- 
ed areas of the bitmap and it re- 
quires three parameters. The first 
two are the X and Y co-ordinates for 
the starting point of the fill, the third 



SYS1038:SYS1041 



SYS 1032 



is again the mode of either zero or 
one. The starting point of the fill is 
important as the routine is not the 
smartest around. Try the following 
example and you will see what I 
mean. 

Set up a bitmap using the follow- 
ing commands in either program or 
immediate mode. 

SYS 1044,2, 10 - set colours 

to red on 
light red 

- clear and 
colour the 
bitmap 

- turn on 
the 

bitmap 

SYS1053,160,100.50,1 - draw 

circle 

Next try SYS 1056,1 40, 1 00, 1 and 
you will see that the circle is not 
properly filled. Erase the above with 
SYS 1056, 140, 100,0 and draw the 
circle again (same as before) and 
then use SYS 1056, 160, 1 00,1. The 
circle will now be filled correctly. 
Have a look at Example 6 in the 
demo program and you will see 
some of the limitations of the fill 
commands. The two fill routines are 
reasonably fast and compact in code 
so you can't expect miracles. 
FILL WITH CHARACTER - 
SYS1059,<0-319>,<0-199>, 
<0-l> t <0-255> 
This routine works in the same way 
as the ordinary fill routine but is has 
an extra parameter. This is a charac- 
ter from the character set. numbered 
0 to 255, and is used to specify the 
fill pattern. You can fill or erase any 
area of the screen or even the whole 
screen with this character and, since 
the character set is redefinable, there 
are hundreds of possible fill patterns 
available. The limitations of the fill 
routine also apply to this command. 
SET SOUND - 
SYS1062,<l-3>, 
<0-l5>,<0-255>,<0-255>, 
<0-255>,<0-255>,<0-255>, 
<0-15>,<0-255>,<0-255>, 
The sound command can be used in 
two ways and needs ten parameters 
to work. In order, these are the 
voice, volume, low frequency, high 
frequency, attack/decay, sustain/re- 
lease, low pulse, high pulse, wave- 



form and the duration of a note. All 
but one of these operate in the 
normal way, the exception being the 
duration. 

If the interrupt is not turned on, 
then the duration is simply a set-up 
command and the particular voice 
used will have to be gated off in the 
normal way. If, however, the inter- 
rupt is on, then the duration param- 
eter comes into effect. The length of 
the note is calculated by: 

Duration = time in seconds x 50 
eg. a five second note gives a 
parameter of 5 x 50 = 250 

All three voices can be used at 
once under interrupt control and 
you can have split-screen graphics 
and interrupt controlled sound at 
the same time. 

To check if a voice has finished 
processing, or requires more data, a 
PEEK to the voice control register is 
needed. For the three voices, the 
registers are located at 1228, 1129 
and 1 1 30 respectively. If the Voice 1 
register at 1128 contains 100 then 
the voice is still on. If it contains 
zero then the voice has been gated 
off. The other two voice registers 
operate in the same way. 
SET SPRITE - 
SYSl065,<0-7>, 
<0-1>,<0-255>.<0-15>, 
<0-320>,<0-255>,<0-l>, 
<0-l> ( <0-l>,«M5>, 
<0-15> 

This command allows sprites to 
be set up with only one instruction 
but it has eleven parameters which 
need to be specified. These are: 
sprite number, sprite off/on, sprite 
pointer (remember data should be 
somewhere in bank 3 ie. for a 
pointer set to 13 the data should be 
at 13*64+49152=49984 onwards), 
sprite colour, X position, Y posi- 
tion, X expand (0=ordinary, ^ex- 
panded), Y expand, multicolour of- 
f/on, multicolour 1, multicolour 2. 
These all operate in the normal way. 
To turn off any sprite you only need 
to specify its number followed by 
zero (eg. to turn sprite 7 off use 
SYS1065,7,0). 
MOVE MEMORY - 
SYS1068. 

<0-65535>,<0-65535>, 
<0-32767> 

Use of this command will move any 
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block of memory to any addresss as 
specified by the three parameters. 
The first is the block's destination 
address, the second is the starting 
address of the block to be moved, 
and the third is its length which is 
limited to a maximum of 32K. 

MOVE MEMORY has access to 
all of the RAM, including that under 
the Basic and Kernal ROMS, except 
for the RAM under the VIC, SID, 
and the I/O ROMs. 

As was mentioned earlier, it is 
not advisable to use this command 
with the interrupt running. If you 
need to have a split-screen and to 
move or fill large areas of memory as 
well, then simply switch off the 
interrupt before calling this routine 
and switch it back on immediately 
afterwards. This will cause the 
screen to flicker or upset sound 
timings but it is simply a conse- 
quence of not being able to have 
interrupts running while maintain- 
ing access to the RAM under ROMs 
at the same time. 
FILL MEMORY - 
SYS1071, 

<0-65535>,<0-32767>, 
<0-25S> 

You can fill any area of memory up 
to a block size of 32K with a number 
between 0 and 255 using this com- 
mand. The parameters required 
form the starting address of the 
memory block to be filled, the length 
of the block (up to 32K), and the 
number with which the block is 
filled. 

This command uses part of the 
MOVE MEMORY routine and the 
interrupt restrictions also apply. 
There are no restrictions concerning 
which part of memory you are filling 
so be careful that you don't over- 
write something important, such as 
the operating system and program 
areas. 

SAVE MEMORY - 
SYS1074,<file 

name> t <01 or 08-ll>,<00>, 
<O-65535>,<0-65535> 
This is a machine code SAVE rou- 
tine and can be used either in imme- 
diate mode or as part of a program. 
The parameters required are the 
filename (usual restrictions apply 
eg. name length of 16 characters), 
device number, the number zero, 



the starting address of the block to 
be saved, the end address+1 of the 
block to be saved. 

LOAD MEMORY - 
SYS1077, 

<file name>,<01 or 08-1 1>, 
<00>,<0-65535> 
The LOAD command can be used in 
either immediate mode or within a 
program and requires the following 
parameters. Firstly the filename, 
then the device, the number zero 
(this is essential), and finally the 
load address. 

SET CURSOR POSITION - 
SYSl080,<0-24>,<0-39> 
This is the last command, and it is 
used to print text to a specific row 
and column on the screen, eg. 
SYS1080,10,14 followed by 
PRINT<text message > will print 
the message on row 10, column 14. 

These are all the new commands 
that are available and if you have a 
look at the DEMO program provid- 
ed it should give you some idea of 
how to make use of them. The best 
way to find out what can and cannot 
be achieved is to experiment as 
much as possible and see what 
happens. 

If for any reason you press the 
RUN/STOP and RESTORE keys. 



you should put the disk that con- 
tains the MCFILE program into the 
drive, and type SYS686. This will 
get everything back to normal with- 
out losing any Basic program that 
may be in memory. Do not use 
SYS680 as this contains the NEW 
command and any Basic program 
will be lost. 

Split loyalties 

The problems that prevent using the 
memory move or fill commands 
with a raster interrupt running relate 
to the operating system ROMs. 

To set the scene, the raster inter- 
rupt comes into operation at the 
specified screen line, either turning 
on or off the bitmap as necessary. 
The routine then exits via the nor- 
mal interrupt routine handler at 
$EA3 1 to ensure correct Basic oper- 
ation with keyscan. So far so good. 

The MEMORY MOVE com- 
mand requires access to the RAM 
under the Basic and Kernal ROMs, 
so these are both switched out. Inter- 
rupts cannot now be allowed to 
occur since the Basic interpreter is 
no longer in memory. If the 
MEMORY MOVE command is 
running, the interrupt flag is set so, 
if the routine runs for longer than 
l/50th of a second (the time it takes 



NEW MEMORY HOP 



//////////>//, 



-192 BYTES STORAGE 

-BITMAP SCREEN CS7344 - 55344) 
DR STORAGE AREA 

-UNUSABLE C UIC, SID, I/O ETC. ) 

-CHARACTER SET C51200 - 5324B)C2SS CHARS. • 8 BYTES) 
-SPRITE POINTERS C511SB - 51199) 
-SCREEN MEMORY CS017B - 51175) 

-DISPLAY SPRITE STORAGE C0-15> C49152 - 501753 
-SPRITE STORAGE C 12B SPRITES) 

OR CHARACTER SETS CI) 

OR BITMAP STORAGE CI) 

OR OTHER C40960 - 491S1) 
-TOP OF BASIC C409S9) 



MAIN BASIC MEMORY - 37152 BASIC BYTES FREE 



//////////// 



-START OF BASIC C37S5) 

"NEW COMMANDS PROGRAM C1020 -3794) 

- OPERATING SYSTEMS AREA 
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for the raster to scan a complete 
screen), the raster interrupt will be 
held up. When the MEMORY 
MOVE command is finished the 
interrupt flag is cleared and the 
raster interrupt can now occur. Un- 
fortunately, the raster display will be 
frozen during the MEMORY 
MOVE interrupt giving a full high 
resolution screen or a full normal 



screen. Either way the result is a 
mess! 

The only way round this problem 
is to avoid using the two commands 
together or simply switch the raster 
off before using the MEMORY 
MOVE command and switch it back 
on again afterwards using the rou- 
tines provided. 

All the above also applies to the 



MEMORY FILL command because 
memory has been saved by using 
some of the subroutines of the 
MEMORY MOVE command. 

Finally, if you want to load the 
program without the menu system, 
type LOAD"MCLOAD",8,l and 
then SYS680. To get the demo pro- 
gram type LOAD"DEMO'\8 then 
RUN. 




PROGRAM: MCLOAD 



3B 10 REM MCLOAD 

OA 20 REM THIS PROGRAM LOADS AN 
D SAUES THE MCLOAD FILE 

86 30 REM TYPE THIS IN AND SAUE 
IT TO TAPE DR DISK AS "MCLO 
AD. BAS" 

BB-40 REM INSERT YOUR MASTER TA 
PE OR DISK AND RUN MCLOAD . BA 
S 



67 50 REM THE SCREEN UILL FLASH 
AND THEN THE SAUE UILL OCCU 
R AUTOMATICALLY 
06 60 : 
7C 70 : 

25 80 BL-4:LN-50:SA-5B0 
CF 30 FOR L-0 TO BL:CX-0:FOR D- 
0 TO IS 

50 100 READ A:CX-CX+A:POKE SA+L 
•16+D, A; P0KE53580 , A: NEXT D 

55 110 READ A: IF A><CX THENPRIN 
T"ERR0R IN LINE";LN*CL«10) ;S 
TOP 

FB 120 NEXT L: RE ADA: P0KE76O, A: R 

EADA : P0KE761 , A 
CE 130 DATA 32,174,2.76,219,2,1 

69, 2 , 162 , B , 160 , 1 , 32 , IBB , 255 , 

1E9, 1649 

E5 140 DATA 6,162,244,160,2,32, 



IBS, 255 , 1B9 , 0 , 32 , 213 , 255 , 169 

,211,133,2232 
BB ISO DATA 43,169,14,133,44,16 

3,0,141,210, 14,32,30,5, 169,1 

47,32,1352 
26 160 DATA 210.255,36,169,4,13 

3,198,163,78,141,113,2,169,6 

3,141,120,2073 
4D 170 DATA 2,169,87.141.121.2, 

1G9 , 13 , 141 . 122 , 2 , 96 , 77 , 67 , 70 

,73, 1352 

F5 180 DATA 75,69,0.0,0,0,0,0,0 

.0,0,0,0,0,0,0,145 
E9 190 P0KE193,168:P0KE194,2:P0 

KE174,251;P0KE175,2 
74 200 P0KE1B7,7:P0KE1BB,B:P0KE 

1B3,6:P0KE1B6,B:REM POKE 1B6 

, 1 FOR CASSETTE 
27 210 POKE18S,0:SYS629S4 



PROGRAM: MCFILE 



35 10 REM TYPE IN THIS PROGRAM 
AND SAUE ON A SPARE TAPE OR 
DISK AS "MCFILE . BAS" 

65 20 REM BEFORE RUNNING PLACE 
THE DISK OR CASSETTE WITH MC 
LOAD INTO THE SAUE DEUICE 

Bl 30 REM IF USING CASSETTE, EN 
SURE IT IS SET TO THE END OF 
MCLDAD 

15 40 REM AND MAKE SURE THAT LI 

NE 100 HA5 BEEN CHANGED 
C6 SO REM RUN MCFILE. BAS 
51 60 BL-1B4 :LN-50 :SA-3686 
4 

A2 70 FOR L-0 TO BL:CX-0:FOR D- 

0 TO 15: READ A:CX-CX*A 
65 80 P0KE53280,A:P0KE SA+L-16+ 

D, A: NEXT D 
SI 90 READ A; IF A><CX THENPRINT 

"ERROR IN LINE";LN+CL-10):ST 

OP 

2E 100 NEXT L : REM IF USING CASS 
ETTE, INSERT POKE 39719,1 HE 
RE 

B7 101 SYS33639 

5B 110 DATA 76,30,5,76,62.4,76, 
69 , 14 , 76 , 503 , 4 , 76 , 147 ,14,76, 
1007 

77 120 DATA 161,14,76,240,4,76, 
6,5,76,123,14,76,144,9,76,16 

3,1253 

2F 130 DATA 7,76,111,6,76.124.1 
0,76,117,10,76,186,5,76,252, 
12,1220 

EA 140 DATA 76,25,12,75,186,12, 



OB 
OF 
36 
B4 
C8 



76, 14, 14, 76.4B, 14, 76, 175, 14, 
96,980 

150 DATA 96,95,120,173,14,22 

0,41,254,141,14,220,173,17.2 

OB, 41, 127, 1955 

160 DATA 141,17,208,169,0,14 

1,18,208,168,114,141,20.3,16 

9,4,141,1663 

170 DATA 21,3,173,26,208,9,1 
, 1 4 1 , 26 , 208 , 88 , 96 , 0 , 0 , 0 , 0 , 10 
00 

180 DATA 0,0,0,0,0,0,169,1,4 
4 . 25 . 209 , 240 , 21 , 173, 113 . 4 , 99 
8 

190 DATA 201.0,240,3,76.145, 
4,76, 174,4, 173,25,208,9,1,14 
1 . 1490 




70 



5B 



3B 



14 



200 DATA 25,209,76,49,234,16 
9 , 8 , 44 , 24 , 208 , 208 , 22 , 173 , 1 7 , 
208,9,1692 

210 DATA 32,141,17,208,169,2 
6,141,24,209,173,112,4,141.1 
9,20B,76, 1698 

220 DATA 134,4,173,17,209,41 
, 223 , 141 , 17 , 208 , 169 , 196 , 141 , 
136,2,169,1979 

230 DATA 19,141,24,208,159,0 
,141, 18,208,32, 113,5,76, 134, 
4,32,1323 

240 DATA 91,6,165,20,240,21, 



69 



7A 



BB 



89 



02 



02 



40 



15 



AO 



61 



C5 



BB 



201 , 201 , 144 , 3 , 76 , 72 , 178 . 24 , 1 
65,20, 1627 

250 DATA 105,50,141,112,4,16 
9,100,141,113,4,96, 169,0, 141 
,112,4,1461 

260 DATA 141,113,4,96,162.32 
, 169 , 224 ,133, 252 , 1 63 , 0 , 133 , 2 
51,168,145,2132 

270 DATA 251, 200, 209, 2S1, 230 
, 252 , 202 , 20B , 24S , 96 , 162 , 4 , 16 

9,136,133,252,3060 

290 DATA 169,0,133,251, 16B.1 

65 , 254 , 145 , 2S1 , 200 , 208 ,251,2 

30 , 252 , 202 , 208 , 30B7 

230 DATA 246,36,120,173,2,22 

1,3,3,141,2,221, 173,0,221,41 

,252,1921 

300 DATA 9,0,141,0,221,169,1 
8 , 14 1 , 24 , 208 , 1 69 , 196 , 14 1 , 136 
,2,169,1744 

310 DATA 0,133,251,169,200,1 
33 , 252 , 168 , O, 133 , 253 , 169 , 20B 
,133,254, 165,2622 
320 DATA 1,41,251,133,1,160, 
0 , 1 77 , 253 , 145 , 251 , 230 , 253 , 23 
0,251,165,2542 
330 DATA 251,208,244,230.252 
, 230 , 254 , 165 , 254 , 201 , 216 , 208 
,234,165,1,3,3122 
340 DATA 4,133,1,88,36,173,1 
04,4,240, 13, 173, 107,4, 20B, 11 
, 163, 1S34 
350 DATA 0.141,4,212,141,104 
,4,76.137,5,206,107,4,173, 10 

5,4,1423 
360 DATA 240,19,173,108,4,20 
8,11,169.0,141.11,212.141,10 
S, 4, 76, 1622 
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61 370 DATA 161,5,506,108,4,173 

, 106, 4 , 240 , 13 , 173 , 109 , 4 , 209 , 

11, 169, 1700 
54 380 DATA 0,141,18,212,141,10 

6 , 4 , 76 , 185 , 5 , 206 , 109 , 4 , 85 , 32 

,91,1426 

2B 390 DATA 6,165,20,240,4,201, 

4,144,3,76,72,178,155,20,168 

, 136, 1602 
14 400 DATA 140,111,4.201,3,240 

, 20 , 201 , 2 , 240 , B , 169 , 0, 141 , 1 1 

0,4, 1534 
IF 410 DATA 76,236,5,168,7,141, 

110,4,76,235,5,169,14,141,11 

0,4, 1503 
11 420 DATA 32,81,6,32,228,13,1 

41,24,212,32,91,6,32, 101,6, 1 

74,1221 

34 430 DATA 110,4,157,0,212,32, 
91 ,6,32, 101 ,6, 174, 110,4, 157, 
1, 1137 

0C 440 DATA 212,32,81,6,32,101, 
6,174,110,4,157,5,212,32,31, 
6.1271 

66 450 DATA 32,101,6,174,110,4, 
157,6,212,32,91,6,32,101,6,1 
74, 1244 

CE 460 DATA 110,4,157,2,212,32, 
91,6,32,228,13,174,110,4,157 
,3, 1335 

6A 470 DATA 212,32,91,6,32,101, 
6,174,110,4,157,4,212,32,91, 
6.1270 




CP 



50 480 DATA 32,101,6,172,111,4, 
153,107,4,169,100,153,104,4, 
96,32,1348 
96 490 DATA 253,174,32,139,173, 
32 , 247 , 183 , 96 , 165 , 21 , 240 ,3,7 
6,72,178,2083 

500 DATA 165,20,96,32,91,6,3 
2,103, 14,165,20, 133, 15B, 165, 
21.133,1370 
34 510 DATA 157,32,91,6,32,97,1 
4 , 133 , 169 , 32 , 91 , 6 , 165 , 20 , 240 
,4,1299 

98 520 DATA 201,130,144,3,76,72 
,178, 133,82,32,81,6,32,240, 1 
3, 133, 1566 
3E 530 DATA 41,153,0,133,80,165 
, 82, 133, 81 , 169 , 1 , 133 , 170, 165 
,82,10,1614 

540 DATA 56,233, 1,133, 171,56 
, 233 , 1 . 133 , 75 , 24 , 165 , 168 , 101 
,81,170,1801 

550 DATA 165,167,105,0,168,2 
4,155, 169, 101, BO, 176, 3, 32, 14 
1,7,24, 1527 
6B 560 DATA 165,168,101,80,170, 
165 , 167 , 105 , 0 , 168 , S6 , 165 , 169 
, 229, Bl, 144,2133 
16 570 DATA 3,32,141,7,56,165,1 
56 , 229 , Bl , 170 , 165 , 167 , 233 ,0, 
168,56,1841 
62 580 DATA 165,169,229,80,144, 
3 , 32 , 14 1 , 7 , 56 , 165 , 1 69 , 229 , 80 
,170,165,2003 
7B 590 DATA 167,233,0,158,24,16 
5,169,101,81,176,3,32, 141,7, 
230,80,1777 



3? 



B7 600 DATA 230,170,230,170,56, 

165,75, 229 , 1 70 , 1 33 , 75 , 176 , 22 

,56,169,255,2391 
CC 610 DATA 229,75,133,75,230,7 

5,198,81, 198,171,198,171,56, 

165,171,229,2455 
35 620 DATA 75,133,75,24,165,16 

8,101,80,170,165,167,105,0,1 

6B,24,165,17B5 
E7 630 DATA 169,101,91,175,3,32 

, 141 , 7 , 24 , 165 , 16B , 101 , 81 , 170 

,165, 167, 1751 
IF 640 DATA 105,0,168,55,165.16 

9,229,80, 144,3,32, 141, 7, SB, 1 

65, 168, 1689 
01 650 DATA 229,B0,170,165,167, 

233 , 0 , 158 , 55 , 165 , 169 , 229, 81 , 

144,3,32,2091 
BE 660 DATA 141,7,56,165,158,22 

9 , 81 , 170 , 165 , 167 , 233 , 0 , IBB , 2 

4, 165, 168,2108 
17 670 DATA 101,80,176,3,32,141 

,7,165,80,197,81, 176,3,76, 18 

2,5,1506 
46 660 OATA 96,201,200,176,17,1 

33 , 253 , 192 , 0 , 240 , 4 . 224 , 64 , 17 

6,7,134,2117 
55 690 DATA 251,132,252,32,180, 

9,96,32,91,6,32, 103, 14, 165.2 

0,133,1554 
69 700 DATA 167,155,21,133,168, 

32,91,5,32,97,14,133, 169,32, 

31,6,1357 
Dl 710 DATA 32,109,14,165,21,13 

3,76,165,20,133,75.32.31,6,3 

2,97, 1201 

21 720 DATA 14,133,151,32,91,6, 
32,240, 13, 133,41,56.155,75,2 
23,167,1578 

63 730 DATA 133,170,165,76,223, 

168, 133, 171, 176,20, 165, 170,7 

3,255, 133, 170,2407 
ED 740 DATA 230,170,165,171,73, 

255, 133, 171, 165, 170,20B,2.23 

0,171,56,165,2535 
DA 750 DATA 151,229,169,133,38, 

176 , 6 , 73 , 255 , 133 , 38 , 230 , 38 , 1 

65, 171,208,2213 

22 760 DATA 6,155,170,197,38,14 
4,66,165,76,197,168,144,34,2 
08,5.165,1949 

4B 770 DATA 75,197,167,144,26,1 

65 , 151 , 197 . 169 , 144 , 11 , 169 , 10 

0, 133,77, 163,2034 
EC 790 DATA 0,133,78,76,157,8,1 

69,0,133,77, 133, 7B. 76, 157,8, 

165,1448 

8B 790 DATA 1S1 , 197 , 159 , 144 , 9. 1 
69, 100, 133,77, 133, 79, 76 , 157 , 
B.169, 0,1770 

23 800 DATA 133,77,169,100,133, 
7B , 76 , 157 , 8 , 165 , 151 , 197 , 169 , 
144,34,165,19S6 

D4 810 DATA 76,197,168,144,19,2 

08,6, 165,75, 197, 167,144, 11, 1 

69,100,133.1979 
□8 820 DATA 33,153,0,133,40,76, 

22,3,169,0, 133,39,133,40,76, 

22, 1100 

22 830 DATA 9,165,76,197,169,14 

4, IS, 155,75, 197,167,144,9,16 

9,100,133,1933 
30 840 DATA 33,133,40,76,22,9,1 

68,0,133,39,169,100,133,40,7 

6,22, 1200 



DS 



01 



850 DATA 9,165,171,74,165,17 
0, 106, 133, 91 , 169,0, 133, 82, 13 
3,79,133,1903 

860 DATA 80,32,126,9,165,78, 
208 , 1 1 , 230 , 167 , 165 , 167 . 208 , 1 




8A 



DO 



3F 



OE 



30 



□ 3 



DE 



SC 



AB 



D2 



BE 



AC 



ec 



55 



EB 



37 



CF 



70 



49 



D7 



5,230, 16B.2059 

870 DATA 76, 201 , B, 198, 167 , 16 

5, 167,201,255,208,2, 198,168, 

56,165,81,2316 

BBO DATA 223,38,133,81,165,8 

2,233,0, 133,82, 176,38, 165, Bl 

,73,255,1364 

B90 DATA 133,81,230,81.165,8 
2,73,255, 133,82, 165,77,208,5 
,19B, 169,2137 

900 DATA 75,241,8,230,169,56 

. 165, 170, 223, Bl, 133,81 ,165,1 

71,229,82,22B6 

910 DATA 133,82,165,80,197,1 

7 1 , 208 , 7 , 165 , 79 , 1 97 , 170 , 20B , 

1,96,230,2189 

920 DATA 79,155,79,208,2,230 
. 80 , 76 , 173 , 8 , 165 , 38 , 74 , 133 , 8 
1,163, 1760 

330 DATA 0,133,82,133,79,32, 
126,9, 165, 40, 20B, 5, 230, 169,7 
6,47, 1534 

340 DATA 9,198,169,56,165,91 
, 229 , 170 , 133 , Bl , 165 , B2 , 229 , 1 
71,133,82,2153 

950 DATA 176,52,165,81,73,25 
5,133,81,230,81,165,82,73,25 
5, 133, B2, 2117 

960 DATA 165,33,208, 13, 19B,1 

67 , 16S , 167 , 201 , 255 , 20B ,13,19 

8,168,76,101,2342 

970 DATA 9,230. 167, 165:167,2 

08,2,230, 16B.56, 165,38,229,8 

1,133,81,2123 

SBO DATA 165,82,233,0,133.82 
,165,73,197,38,208,1.36,230, 
78,76, 1864 

990 DATA 33,9,165,168,133,25 

2,165,167,133,251,165,169,13 

3,253,32, 180,2408 

1000 DATA 9,96,0,0,32,91,6,3 

2, 109, 14, 165,20, 133,251,165, 

21 , 1144 

1010 DATA 133,252,32,91,6,32 
,97, 14, 133,253,32,91,6,165,2 
0,201. 155B 

1020 DATA 3,144,3,76,72,178, 
133 , 41 , 165 , 251 , 41 , 7 , 170 , 56, 1 
63,0, 1503 

1030 DATA 133,90,106,202,16, 

252 , 133 , 89 , 165 , 251 , 41 , 248 , 13 

3,32,165,253,2369 

1040 DATA 74,74,74,133,91,74 

, 102 , 90 , 74 , 102 , 90 , 101 , 91 , 133 

,91,165,1559 

1050 DATA 253,41.7,101,90,10 

1 , 92 , 133 , 90 , 165 , 91 , 101 , 252, 1 

05,224,133,1379 

1060 DATA 91,120,165,1,41,25 

3,133, 1, 16S, 41, 240, 40, 201,1, 




YOUR COMMODORE SERIOUS USERS GUIDE 
21 



LISTING 



240, 55, 1755 
ES 1070 DATA 160,0,177,90,36,83 
,E0B,7, 155,0, 133,2,76,109,10 
,169, 1435 

1080 DATA 100,133,5,76,109,1 
0,160,0, 177,90,5,89, 145,90,3 
E, 50,1266 
92 1090 DATA 10,76,109,10,160,0 
,56, 169,255,229,89, 133, B9, 17 
7,90,37,1589 

1100 DATA 89,145,90,76,109,1 
O , 159 , 0 , 133 , 90 , 133 , 91 . 165 , ES 
3,41,248,1842 

1110 DATA 133,92,133,90,10,3 
B.91, 10, 3B, 91, E4 ,101,95, 133, 
90, 165, 1331 
A9 1120 DATA 31,105,0,133,91,54 
,169,0, 101,90,133,90,54, 169, 
136, 101, 1517 

1130 DATA 91,133,91,165,552, 
74 , 165 , 551 . 105, 74 , 74 , 168 , 165 
,554,145,90,553b 
6A 1140 DATA 36,165,1,9,5,133,1 
, 88 , 96 , 169 , 100 , 133 , 171 , 76 , 15 
B, 10, 1378 

1150 DATA 169,0,133,171,32,9 
1 , 6 , 32 , 109, 14 , 165 , 20 , 133 , 167 
,165,21,142B 
51 1160 DATA 133,168,32,91,5,32 
, 97 , 14 , 133 , 159 , 32 , 91 , 6 , 32 , 24 
— 0, 13, 1589 

1170 DATA 133, 75, 501,0, SOB, 7 
,169,100,133,76,76,173,10,16 
9,0,133,1663 

1180 DATA 76,165,171,240,52, 
35,91.6,169,0,133,555,165.51 
,540,3, 1B16 
4D 1130 DATA 75, 7E , 17B, 165, EO, 1 
0 , 3B , 552 , 10 , 38 , SS5 . 10 , 3B , 555 
,133,551,1795 
EH 1500 DATA 54,169,0,101,551,1 
33,551, 169 , 500 ,101, 552 , 133 , 5 
55,160,0,177,5373 
OE 1510 DATA SSI , 153, 94, 0 , 200, 1 
35,8,508.546, 163.0,133, 170,1 
65,167,133.EEB9 
AO 1SE0 DATA 251,165,168,133,25 
2,165,159,133,253,169,2,133, 
41,32,193,11,2276 
C4 1530 DATA 165,5, 197, 76, SOB, 5 
0,155,75,133,41,32,172,11,19 
8,251,165,1911 
F4 1540 DATA 251 , 501 , 255, SOB, 2, 
198 , 255 , 76 , S45 , 10 , 165 , 167 , 13 
3,551.165,168,5747 
B4 1E50 DATA 133, S5S , 530 , 551 , 16 
5,251,208,2,230,555, 169,5,13 
3,41,32, 199.E550 
04 1260 DATA 1 1 , 165 , E , 197 , 76 , EO 
B, 10, 165, 75, 133, 41, 35, 173,11 
,76,30,1404 
84 1370 DATA 11,165,170,508,34, 
155, 167, 133, 551 , 165, 166, 133, 
55S, 138, S53, 168,5645 
A5 1580 DATA 5,133,41,35,199,11 
, 165 , 5 , 137 , 76 , EOB , 3 . 76 , S , 11 , 
163.13E7 

3E 1E30 DATA 100,133,170,165,16 
3, 133.S53, 165, 167 , 133 , 551 , 16 
5 , 166 , 133 , S5S , 530 , 5787 
33 1300 DATA 553,169,2,133,41,3 
2,199,11,165,2,197,76,508,3, 
76,2.1569 
32 1310 DATA 1 1 , 96 , 16S , 253 , 201 , 
300 , 1 76 , 8 , 165 , 555 . 340 , SB , 501 



78 

SC 

4C 

6D 

FA 

93 

BB 

76 

38 

DA 

85 

06 

BC 

EC 

AF 

DB 

OE 



,1.340,18,3555 

1350 DATA 165,75,340,5.169,1 
00 . 76 , 151 , 11 , 169 , 0 , 133 , 5 , 163 
, 100, 133, 163B 

1330 DATA 73,96,165,551,501. 
64 , 1 76 . 232 , 32 , 160 . 9 , 169 , 0 , 13 
3,79,96,1962 

1340 DATA 155,171,540,506,35 
,540,11, 16S, 78, 540, 8, 165,75, 
133,41,35,2005 

1350 DATA 126,11,36,163.0,13 
3,41,32, 126, 11,36,32. 126,11, 
165,79, 1254 

1360 DATA 208,4,165,171,208, 
1 , 96 , 16S , 75 , 20B , 251 , 35 , 240 , 1 
1,165,2,5003 

1370 DATA 197,78,208,11,165, 

2 , 201 , 100 , 240 , 236 , 163 , 100 , 13 

3,2,36, 169,2107 

1380 DATA 0,133,2,96,165,253 

,41,7,170, 181,94, 133,77, 165, 

251,41,1809 

1390 DATA 7,170,56,163,0,105 
, 202 , 16 , 252 , 133 , 83 , 155 , 77 . 37 
,89.201,1759 

1400 DATA 0,240,5,163,100,13 
3, 7B, 96, 159,0, 133, 7B, 96 ,32, 9 
1,6, 1426 

1410 DATA 165,20,72,165,21,7 
2 , 32 , 91 , 6 , 165 , 20 , 72 , 165 , 21 , 7 
2,35,1191 

1450 DATA 91,6,160,3,104,153 
, 97 , 0 , 135 , 16 , 349 , 165 , 50 , 5 , 31 
,340, 1466 

1430 DATA 67, 165, 9B, 197, 100, 
144,65,508,6, 165,97,197,99, 1 
44,57,316,5035 

1440 DATA 34,165,97,101,30,1 
33,97,165,98, 101,31,133,38,5 
4, 165,39, 1541 

1450 DATA 101,30,133,33,165, 

100 , 101 , 51 , 133 , 100, 33, 170 , 13 

,198,100,198,1683 

1460 DATA 98,160.555,177,93, 

145,37, 155, 30B, 4, 138, 100, 138 

,38,136,35,3157 

1470 DATA 157,13,508,333,33, 

178,15,36,33,170,13,160,0,17 

7,33,145,1733 

14B0 DATA 37,300,508,4,530,1 
00 . 330 , 98 , 32 , 157 . 12 , 208 , 240 , 
32,178,13,3038 



CZ. 



FB 1490 DATA 96,155,20,308,3,19 

6,21, 198,50, 165, 30, 5, SI. 96,1 

30,165,1550 
DA 1500 DATA 1,41,353.133,1,96, 

16S, 1,9,3, 133, 1,88,96,35,91, 

1143 

BO 1510 DATA 6,165,30,73,165,31 
, 72 , 35, 91 , 6 , 155 , SO , 75 , 165 , 51 
,75,1165 

90 1550 DATA 32 , 31 , 6 , 165 , 21 . SOB 

,37, 166,30, 104, 133,31, 104,13 

3,30,104,1365 
41 1530 DATA 133,98,133,100,104 

, 133 , 97 , 133 , 33 , 330 , 97 , 308 , 3 , 

330,98, 160,5055 



18 1540 DATA O , 138 , 145 ;99 , 35 , 15 

7, 15,540, 6, 76, 133, 12,76,75, 1 

78,96, 1471 
37 1550 DATA 33,91,6,165,30,301 

,8, 144,3,76,73, 17B, 141,357, 1 

3,33, 1409 
37 1560 DATA 353.13,33,91,6,33, 

340, 13, SOB, 10,173,31,308,45, 

356, 13, 1583 
BB 1570 DATA 141 , 51 . SOB, 96 , 35, 9 

1,6,35,101,6, 174,557, 13, 157, 

348, 133, 1753 

07 1580 DATA 35 , 91 , 6 , 3S , SSB , 13 , 
174,337,13,157,39,306,33,91. 
6, 174,1533 

FA 1590 DATA 337,13,138,10,170, 

141 , SS7 , 13 , 1 65 , 50 , 157 , O , 508 , 

165,31,540,1915 
55 1600 DATA 12,173,16,208,13,2 

25, 13, 141, 16, 208, 76, 9B, 13, 17| 

3,16,208,1609 
FB 1610 DATA 45,226,13,141,16,2 

OB , 32 , 31 , 6 , 32 , 101 , 6, 174 , S57 , 

13,157,1488 
54 1650 DATA 1 , SOB , 33 , 91 , 6 . 33 , 5 

40, 13,308, 13, 173, 59. SOB, 45. 5 

26,13,1537 

08 1530 DATA 141,53,508,76,139 
13, 173, 33, 30B, 13,335, 13, 141, 
33, SOB, 33, 1677 

70 1640 DATA 91 , 6, 35, 540 , 13 , SOB 

, 13 , 173 , 33 , 308 , 45 . 336 ,13,141 

,33, SOB, 156S 
57 1650 DATA 76, 168, 13, 173,53,5 

08, 13,535, 13. 141,33,506,35,3 

1,6,35, 1445 
44 1660 DATA 340,13.308,15,173, 

58,508,45,556, 13 , 141 , SB , 508 , 

75,197,13,1839 
77 1670 DATA 173,38,508.13,535, 

13 , 141 , 38 , SOB , 33 , 91 , 6 , 33 , 559 

,13,141,1580 
Fl 1580 DATA 37,508,35,91,6,33, 

SSB , 1 3 , 14 1 , 38 , 508 ,173,51, 508 

,13,555,1674 
1C 1690 DATA 13,141,31,308,96,0 

,0,0, 165,50,501, 16,144,3,76, 

75,1176 

FA 1700 DATA 178,155,50,96,165, 
50,501,3, 144,3,76,75,178, 165 
,50,96, 1601 
9F 1710 DATA 16B , 300, 56 , 169 , 0, 4 
3 , 136 , 308 , 353, 141 , 335 , 13 , 73 , 
355,141,336,5305 
SB 1750 DATA 13,36,33,553,174,3 
3,315,555,33,31,6,165,30,75, 
165,51,1603 
11 1730 DATA 75,33,31.6,166,50, 
164 , 31 , 104 , 133 , 51 , 104 , 133 , 50 
, 163,50, 1576 
A5 1740 DATA 35,515,555,36,35,3 
53, 174,35,513,355,35,91,6, 16| 
9,0,166,1991 
58 1750 DATA 30,164,31,35,313,3 
55 , 36 , 355 . ISO , 169 , 49 , 1 41 , 30 , 
3,169,334,1931 
6F 1750 DATA 141,31,3,173,36,30 
6,41,354, 141 ,56. SOB, 173, 14, 5| 
50,9,1,1659 
CC 1770 DATA 141 , 14 , 330 , BB . 96, 1 
65, 30 , SOI , 300 , 144 , 3 , 76 , 73 , 17 
B, 165, SO, 1803 
4F 1780 DATA 96, 165, SI , 540 , 9 , 16| 
5 , 30 , 301 , 64 , 144, 3 , 76 , 75 , 17B , 
96,35,1585 
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1C 1790 DATA 91,6,38,228,13,10, 

10,10,10,133,554,32,91,6,35, 

BBS, 11B6 
01 1B00 DATA 13,54,101,354,133, 

554,96,173,17,808,9,32,141,1 

7,508,169,1849 
C6 1810 DATA 56,141,54,508,96,1 

73 , 17 , 508 , 41 , 5B3, 141 , 17, 508 , 

169,18,141,1851 
GF 1850 DATA 54,508,96,32,91,6, 

155,21,208,25, 165,20,501,25, 

176,19,1482 
CO 1830 DATA 72,32.91,6,104,170 

, 165 , 21 , 208 , 9 , 164 , 20 , 195 , 40 , 

176,3, 1473 
54 1840 DATA 76 , 240, BSS, 76, 72, 1 

78,0, 169,0,133,250, 159, 144,1 

33,251,169,2315 



PROGRAM: DEMO 



4A 10 REM EXAflPLEl •« 

CA 20 PRINT"CCLR , DOWN 3 MOUE MEM 

ORY FROM CHARACTER 5ET" 
50 30 PRINT" STARTING AT 51B00 

CSC800) TO THE" 
56 40 PRINT" BITflAP SCREEN AT 5 

7344 CSEOOO)" 
E5 50 PRINT" IN BLDCKS OF 8 . IE 

.CI CHARACTERS " 
5D 60 PRINT " THEN FILL REHAININ 

G SCREEN WITH" 
BD 70 PRINT" CHARACTER NO. 157. 

AF BO G0SUBB330:REM GET ANY KEY 

TO CONTINUE 
AA 90 SYS1044.8, 10:REM SET COLD 

UR5 RED ON L/REO 
1C 100 SYS1038:SYS1041:REn CLEA 

R AND COLOUR BITMAP 




B3 110 5YS1035:REn BITMAP ON 

4D 120 READ ROW, COL, RS 

66 130 IFRDUI-SS6THEN530 

D9 140 FOR C-1TDLENCRS) 

BO 150 SBM-S7344-KR0U-38O)-KC0L 

•85: REM POSITION ON BITMAP 
3C 160 CHS-MIDSCRS,C,1):CHAR-AS 

CCCHS) 

58 170 IFCHAR>-64THENCHAR-CHAR- 

64: REM CONUERT ASCII 
CI 180 I FCHAR> -S6THENCHAR-CHAR- 

64: REM TO CBM DISPLAY 
DB 190 CN-51B00+CCHAR*8):REM WH 

ICH CHARACTER TD PRINT 
4A 200 SYS106B,SBM,CN,8:REM MOU 

E MEMORY FROM CHARACTER SET 

TO BITMAP 
B7 510 CDL~C0L+1 : NEXT 
E4 550 G0T0150 

DD 530 SYS1059, 55,100, 1,157:SYS 
1059,300, 100, 1,127: REM FILL 
BITMAP 

9B 240 6ETAS: I FAS-" "THEN540 
SB 550 SYS1035:REM BITMAP OFF 



5S 1850 DATA 552,133,174,133,19 
3,169,3,133,175,133,194,169, 
215,133,255,169,8530 

Al I860 DATA 154,133,553,160,0, 
177 , 250 , 145 , 174 , 230 , 250 , 208 , 




2,B30,B51,830,8847 
EC 1870 DATA 174,808,2,230,175, 

165 , 550 , 197 , 552 , 508 , 834 , 165 , 

551 , 197 , 553 , SOB ,3169 
A5 1880 DATA 228,169,114,133,18 

7,169,155,133,188,169,6,133, 

183,169,0,133,2269 
DB 1890 DATA 185,169,0,32,144,2 



CD 260 PRINT"CCLR3":G0TO43O 

35 570 REM DATA IN FORM OF CROU 

.COLUMN, "TEXT") 
CF 580 DATA 6 , 9 , "C 5U , 5-20 , SI 3 " 
3E 290 DATA 7 , 9 , "C S- , SPC50 , 5-3 " 

86 300 DATA B,9,"CS-3 THIS IS A 

N EXAMPLE CS-3" 
3B 310 DATA 9,9, "C5- , SPC80, S-3 " 

58 380 DATA 10,9, "CS-3 OF WRIT 
ING TEXTCSPC3 , S-3 " 

07 330 DATA 11,9, "CS-, SPC80, 5-3 

6D 340 DATA 12.9, "CS-3 TO A BIT 

MAP SCREEN CS-3" 
31 350 DATA 13, 9 , "CS- , SPCSO, S-3 

66 360 DATA 14,9, "CS-3 USING T 

HE MEMORY CS-3" 
DB 370 DATA 15,9, "CS-,5PC80, S-3 

B6 380 DATA 16,9, "CS- , SPC43MQUE 

COMMAND. CSPC3, S-3" 
CS 390 DATA 17, 9 , "CS- , SPC20 , S-3 

3D 400 DATA 18, 9 , "CSJ, 5-50, 5K3 " 

71 410 DATA B56 , B56, "" : REM END 

OF DATA 
50 450 REM EXAMPLES •» 
DA 430 PRINT"CD0UN3 USING THE A 

BQUE BITMAP" 
BE 440 PRINT" HERE IS AN EXAMPL 

E OF USING" 
BE 450 PRINT" THE SPLIT-SCREEN 

COMMAND TO" 
49 460 PRINT" ROLL THE BITMAP U 

P AND DOWN" 
DF 470 PRINT" THE SCREEN." 
BD 480 PRINT" PRESS ANY KEY TO 

END DEMO." 
EA 490 GOSUBBSSO 

59 500 5YS10B3:REM RASTER INTER 
RUPT ON 

97 510 SY51041:REM COLOUR BITMA 
P 

5C 550 SYS10BS,1:REM SET BITMAP 

AT TOP OF SCREEN 
CS 530 GETAS : I FAS- " "THEN570 
35 540 SYS105S,0:REM SPLIT SCRE 
EN OFF 

BC 550 SY51056:REM RASTER OFF 



55 , 169 , 8 , 76 , 61 . 155 , BOO , 808 , 8 

45,38,507,5146 
99 1900 DATA 555,240,251,201,49 

.240,4,201,56,48,830,41,15, 1 

33,186,76,2556 
14 1910 DATA S34,S4S,147,17,17, 

73,78,80,85,84,35,68,69,86,7 

3,67,1455 
47 1920 DATA 59,32,76,85,77,66, 

69 . 82 , 13 , 17 , 67 , 65 , B3 , 61 , 49 , 3 

2,945 

FA 1930 DATA 47,35,68,73.83,75, 
61 , 32 , 56 , 32 , 79 , 82 , 32 , 57 , 58 , 4 
5,912 

El 1940 DATA 32,0,77,67,70,73,7 
6,69,0,0,0,0,0,0,0,0,464 

5D 1950 DATA 0,0,255,255,555.55 
5,555,0,0,0,0,0,0,0,0,0, 1575 



SA 560 PRINT"CCLR3":GDT0650 
AS 570 FOR R-l TO 500 
IB 5B0 SYS1029,R:REM SCREEN SPL 
IT 

D2 590 NEXT 

OB 600 FORR-200 TO 1STEP-1 

F2 610 SYS10B9.R 

EC 620 NEXT 

45 630 G0T0530 

84 640 REM •* EXAMPLES 

OB 650 PR1NT"CD0WN3 USE MEMORY 

FILL COMMAND TO COLOUR" 
C9 GGO PRINT" PARTS DF BITMAP A 

ND THEN USE IT" 
AC 670 PRINT" TO CLEAR PART OF 

THE SCREEN, " 
3A 680 PRINT" PRESSING ANY KEY 

TO GET NEXT PART" 
37 690 PRINT" OF DEMO." 
AS 700 G0SUB2990 

C4 710 SYS1041;REM COLOUR BITMA 
P 

27 720 SY51032:REM BITMAP ON 
2B 730 GETAS: IFAS-""THEN730 
EA 740 SYS1044,0,S:REM SET COLD 
URS 

D7 750 C-PEEKC854):REM 554 IS T 

HE CURRENT COLOUR 
56 7G0 SCREEN-1084+4915B+C5-40) 
; REM SCREEN ADDRESS IN BANK 

3+5 LINES DOWN 
76 770 NQ-15»40:REM NO-NUMBER 0 

F LINES * 40 CHARACTERS TO T 

HE LINE 




FO 790 SYS1071 .SCREEN, NO, C 

AA 790 GETAS: IFA$"""THEN790 

C5 800 BITMAP-57344+C380*S5:N0- 

380«1S:REM CLEAR 15 LINES S 

LINES DOUN 
OE BIO SYS1071, BITMAP, ND,0:REM 

FILL MEMORY WITH CO) 
54 B80 GETAS; IFAS-""THEN880 
Dl B30 SYS1035:REM BITMAP OFF 
89 840 PRINT"CCLR3" 
OA 850 REM EXAMPLE4 •* 
A6 B60 PRINT"CD0WN3 NOW FOR SOM 

E LINE DRAWING DEMOS" 




LISTING 



4F 870 GaSUB29S0:P0KE53280,0 
CI BBO SYS1044,7,0:SYS1041:SYS1 
03B: REn SET COLOUR, COLOUR ft 
NO CLEAR BITMAP 
72 B90 SYS1032:REM BITMAP ON 
AF 900 FOR X-0T0319STEP5 
□7 910 SY51050,X,0,X, 139, 1: REM 
DRAW LINE COMMAND 
.9 930 NEXT 

7C 930 F0RY-0T0199STEPS 

5F 940 5YS1050,0,Y,319,Y,1:REM 

1-PLOT 
3B 950 NEXT 

B6 960 F0RD-0T0313STEP4 
01 970 B-319-D 
DD 9B0 SYS1050, 0,0,8,199,1 
63 990 NEXT 

83 1000 F0RD-0T0199STEP3 

17 1010 B-199-0 

ft7 1020 SYS1050,0,B,319,D,1 

BB 1030 NEXT 

5E 1040 F0RD-0T0199STEP3 

AB 1050 B-199-D 

7F 1060 SYS1050, 0,0,319, B,0:REH 

0-UNPLOT 
BO 1070 NEXT 
61 10BO F0RD-0T0319STEP4 
7E 1090 B-319-D 
B9 1100 SYS1050,B,0,D, 199,0 
DB 1110 NEXT 

40 1120 6ETAS: IFAS-""THEN1120 
E9 1130 SYS103S:PRINT"CCLR3" 
40 1140 REn EXAnPLES 
BE 1150 PRINT"CD0UN3 NOU) FOR SO 

nE CIRCLES" 
73 1160 G0SUB2990 

20 1170 SYS1044,4,3:SYS103B;SYS 
1041:SYS1032 
11B0 FOR R-1T0129 
1190 SYS1053, 160, 100.R, l;REn 

CILCLE COMMAND Cl-PLOT) 
1200 NEXT 

1210 FOR R-129T01STEP-2 
1220 SYS1053,160,100,R,0:REM 

0-UNPLOT 
1230 NEXT 

GETAS: IFAS-""THEN1240 

P0KE532B0.6 
SYS1044,14,7:SYS1041 
SYS103B:REM CLEAR BITrtA 



E2 
C2 

36 
30 
9B 

50 
14 
39 
OD 
F3 

ftO 

51 

9B 

92 

BB 

AC 

C3 

7A 

CB 

18 

EB 

A2 

93 

BO 

13 

F2 

66 

D9 

4E 

41 

5E 

56 

5B 



1240 
1250 
1260 
1270 
P 

12B0 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1460 

1490 

1500 



FOR0-1T0100 
SYS1053.D, 0,0,1 
NEXT 

F0R0-1T0100 
A-139-0 

SYS1053,0,A,0,1 
NEXT 

F0R0-1T0100 
X-319-D: Y-199-D 
SYS1053,X,Y,D,1 
NEXT 

F0RD-1TO100 
X-319-D 

SYS10S3.X, 0,0,1 
NEXT 

GETAS: IFAS-""THEN1430 

F0RD-100T01STEP-2 

X-319-0 

SYS1053.X, 0,0,0 
NEXT 

FORD-100T015TEP-2 
X-319-0: Y-199-0 
SYS1053.X, Y,D,0 



E9 1510 NEXT 

16 1520 F0RD-100T01STEP-2 

AA 1530 A-199-D 

38 1540 SYS1053.D, A,D,0 

96 1550 NEXT 

BB 1560 FOR0-1OOTO15TEP-2 

OB 1570 SYS1053,D,D,D,0 

BO 1590 NEXT 

20 1S90 GETAS: IFAS-""THEN1530 
El 1600 SYS1035:PRINT"CCLRa" 
BB 1610 SYS1035:PR1NT"CCLRJ" 
Al 1620 REn EXAMPLE6 •• 
OE 1630 PRINT"CD0UN] DRAW SOnE 

SHAPES ON SCREEN AND" 
AE 1540 PRINT" USE THE FILL AND 

PATTERN FILL COnnANDS," 
EA 1650 PRINT" FINALLY ERASING 

EUERYTHIN6 AGAIN" 
Bl 1660 G0SUB2S90 





B2 

OE 
FF 

18 

BE 
B9 
62 
FS 

BE 

8B 

3A 

5B 

90 

43 

3F 

21 

4D 

57 

19 

Al 

75 
EF 
F2 
OC 
AD 

DC 
FA 
01 
24 

7E 



1570 SYS1044,2,3:SYS1041:SYS 
103B 

1BB0 SYS1032 

1690 rt-l:REn 1-PLOT 0-UNPLOT 

1700 SYS1050, 10, 35,35,10, n:R 
En DRAW LINE COnnANDS 
1710 SYS1050,35,10,60,35,M 
1720 SYSIOSO.BO.SS.SS.BO.M 
1730 SYS1050, 35, 60, 10,35, M 
1740 SYS1050 , 260 , 10, 310, 10, M 

1750 SYS1050,310,10,310,60,M 
1760 SYS1050, 310,60. 260,60, M 
1770 SYS1050,260, 60,260, 10, M 

17B0 SYS10S0,260,165,28S,140 
,M 

1730 SYS1050.2B5, 140,310, 165 
1800 SYS1050,310,1B5,2B5,190 

,n 

1810 5YS1050,e85, 190,260, 165 
,M 

1B20 SYS1050, 10, 140,50, 140, M 

1630 SYS1050, 60, 140,60, 190, M 

1840 SYS1050,60,190,10,1SO,M 

1850 SYS1050,10,190,10,140,M 

1860 SYS1053,110,100,40,M:RE 
M DRAW CIRCLE COMMANDS 
1870 SYS1053,160,50,40,M 
1880 SYS1053, 210, 100,40, M 
1690 SYS1053,160,lSO,40,n 
1800 SYS1053,160,100,90,M 
1910 9YS1056,110,100,M:REM F 
ILL AREAS OF BITMAP 
1920 SYS1056, ISO, 50, M 
1930 SYS1055.210, lOO.n 
1940 SYS1056, 160, 150, M 
1950 SYS1059,3S,35,n,49:REM 
FILL UITH PATTERN 
1960 SYS1059,2B5,35,n,50:REn 
FILL NO'S REPRESENT 



33 1970 SYS10SS,285,lB5,n,Sl:RE 

M CI, 2, 3, 4) RESPECT IUELY 
AE 19B0 SYS1053,35.165,n,52;REM 
SEE SCREEN DISPLAY CODES IN 
USER GUIDE 
OC 1990 SYS1059,65,100,n,102 
23 2000 SYS1059,255,100,n,102 
FF 2010 SYS10S9,5,35,n,102 
El 2020 SYS1059,315,35,n, 102 
45 2030 5YS1059,31S,165,n,102 
BB 2040 SYS1059.5, 165, M, 102 
4F 2050 SY51059,lB0,100,n,102 
8E 2060 IFn-lTHEN5YS106B, 40960, 
57344,8000: REtt STORE BITnAP 
UNDER BASIC ROM 
DB 2070 GETAS: I FAS-" "THEN2070 
5E 2080 IFM-1THENM-0:GOT01700: R 

EM SET MODE TO 0-UNPLOT 
BD 2090 SYS1035:PRINT"CCLR]" 
82 2100 REM EXAMPLE7 ** 
A4 2110 PRINT"CD0ti]N3 MOUE THE P 

REU10USLY STORED BITMAP" 
DA 5120 PRINT" C SEE LINE 5130 

IN ABOUE DEMO 3 " 
4C 5130 PRINT" FROM THE STORAGE 

SPACE UNDER THE BASIC" 
BE 5140 PRINT" ROM BfiCK INTO TH 

E BITMAP SCREEN" 
55 2150 G0SU8299O 
BC 2160 SYS1041:SYS1032 
49 2170 SYS106B, 57344, 40960 ,800 

0 : REM MOUE DATA 
8A 2180 BETAS: IFAS-""THEN2180 
91 2190 SYS1035:PRINT"i:CLR3" 
9D 5500 REH *• EXAMPLES 
E7 5210 PRINT"CDOWND MOUE BITMft 

P DATA TO MEMORY AT" 
BO 2220 PRINT " 24575 CS6000) I 

D THEN SAUE IT TO DISK" 
51 2230 PRINT" THEN CLEAR BITMi 

P AND LOAD THE SAUED" 
63 2240 PRINT " DATA DIRECTLY ! 

TO THE BITMAP SCREEN" 
Fl 2250 PRINT" AT 57344 (SEOOO) 



D2 2260 PRINT" PLEASE ENSURE TH 
AT THE DRIUE IS READY" 

S3 2270 PRINT" BEFORE CONTINUH 
G UITH THIS DEMO. " 

5B 2260 PRINT" IF YOU WANT TO ! 
KIP THIS DEMO PRESS <S>" 

F9 2290 G05UB2SS0 

SE 2300 IF AS-"S"THEN53S0 

55 2310 SYS1032:SYS1041 

C9 2320 SYS106B, 54576,57344,8001 
O: REM MOUE BITMAP DATA TO ME 
MORY STARTING AT 54576 

BB 5330 SYS103B:REM CLEAR BITM 
P 

61 5340 SYS1074, "DATA" , 08, 00, 24 

575,35576:REM SAUE MEM . FROn| 
54576 TO 24576*8000 
2F 2350 SYS1077, "DATA" , 08 , 00 , 57 

344:REM LOAD DATA DIRECTLY I 

NTO BITnAP 
EB 2350 GETAS: IFAS-""THEN2360 
C4 2370 SYS1035:PRINT"CCLRD" 
17 2380 REM — EXAMPLES 
6E 2390 PRINT"CCLR,DOWN] NOU F0| 

R A DEMONSTRATION OF THE SOU 

NO" 

59 2400 PRINT" AND SPRITE SETt 

COMMANDS" 
CD 2410 G0SUB2S30:P0KE53280,0:P! 
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LISTING 



► 



0KES32B1.0 
69 2420 SYS10B0.19,0:PRINT"CRUS 

ON , SPCEB , RUSOFF , SPC 1 0 , RUSDN] 
C RUSOFF D" 
98 5430 SYSlOBO.aO.aB^RINT-CC* 

,5PC8,S£3":REn PRINT ftT ROW- 

81 , C0LUMN-E9 
OA E440 SYS1080.21,2B:PRINT" CR 

USON, CI , RUSOFF, CIS, RUSON , CI , 

RU50FF3 " 
BE 2450 SY510B0,23,B:PRINT"CSPC 

263" 

05 2460 SYS10E3:FIN-0:X-40: Y-E5 

: G05UBE620 
E5 E470 Ul-PEEKC1128):REn TEST 

U0ICE1 

□3 E4B0 IF Ul-0 THENGQSU8£7E0:R 
EM IF OFF THEN READ NEXT NOT 
E DATA 

47 S490 IF riC-5 THENS-D.-REM USE 
DELAY TO CONTROL SPRITE MOU 
EttENT 

B9 E500 X-X+CS/50):Y-Y-KS/75):R 
EH LDNGER NOTE PLAYS FASTER 
SPRITE nOUES 

IE E510 SYSlOBS.O.l.O^.X.Y.l.l 
,l,l,nC:REn SPRITE SETUP CDH 
HAND 

DB 2520 I FF I N<> 1 THENE470 : REn IF 

nORE NOTES 
29- ES30 FORD-OT010 
60 E540 Y-Y+l 

IB 2550 SYSlOGS.O.l.O^.X.Y.l.l 
,1.1.0:REnSPRITE SETUP COMHA 
ND 

BB E5G0 NEXT 

DC E570 U3-PEEKC1130): IF U3O0T 

HENE570: REn UAIT TILL UOICE 

3 FINISHED PLAYING 
DF £580 SYS10EG: REn TURN OFF IN 

TERRUPT 
17 2S90 G0SU82990 
AE E500 SYS1065.0.0 
5E EG10 PRINT"CCLR3":GOT03040 
F5 2620 F0RD-OTOB3: READ A:P0KE4 

9152+D , A : NEXT 
8C E630 RETURN: REn PLACE SPRITE 




DATA IN SPRITE 0 C49152-) 
ED EG40 DATA 000,000,000,000,00 

0,000,000,000 
C3 E650 DATA 000,000,000,000,00 

0,060,000, OOE 
4D EG60 DATA ISO, 1S9.04E, 170, 16 

8,170, 170, 170 
7B EB70 DATA .170,170,170,538,23 

B.23B, 1B7, 1B7 
38 2BB0 DATA 187,170,170,170,04 

2, 170, 16B.006 
81 2G90 DATA 170 , 144 , 005 , 000 , OB 

0,020,000,020 
57 2700 DATA OlG , 000, 004 , 084 , 00 

0,021,000,000 
F7 2710 DATA 000,000,000,000,00 

0,000,000,000 
07 2720 READ LF , HF , D , nC: REn GET 
NOTE DATA PLUS ttULTICOL 2CS 

EE LINE 3542) 
BC 2730 I FLF-256THEN2790 : REn TE 

ST FOR END OF DATA 
5E 2740 SYS1062,1,15,LF,HF,0,24 



0,0,3,65,D:REn UDICE 1 



FC 


2750 


SYS10G2.2, IS, 43, 137, 128 




.255, 


0,0,33,100:REn U0ICE2 


OE 


2760 


SYS1062 , 3 , 15 , 149, 68, 12B 




,255, 


0, 0,129, 100:REn U01CE3 


D9 


2770 


G0T02790 


7D 


2780 


FIN"1 : REN SIGNAL NO nOR 




E DATA SEE LINE 3550 


7E 


2790 


RETURN 


El 


2800 


DATA 


S3, 7, 75, 2: REn NOTE 




DATA 




4F 


2B10 


DATA 


£3.8.75,1 


B7 


2820 


DATA 


10B,6,75,2 


C5 


2830 


DATA 


0.0,15,1 


SB 


2840 


DATA 


54,3,75,2 


EC 


2850 


DATA 


208,4, 100, 1 


46 


28B0 


DATA 


53,7,50,2 


ED 


2870 


DATA 


23,8.50,1 


30 


2BB0 


DATA 


108,6,50,2 


54 


2890 


DATA 


0.0,10,1 


AB 


2900 


DATA 


54,3,50,2 


85 


2910 


DATA 


208,4,75,1 


7B 


2920 


DATA 


107, 14,20,2 


88 


2930 


DATA 


47,16,20, 1 


72 


2940 


DATA 


216, 12,E0,2 


SA 


2950 


DATA 


0.0,5,1 


BB 


2960 


DATA 


109,6,20,2 


9D 


2970 


DATA 


159,9,40,1 


F9 


2880 


DATA 


256,0,0.0 


63 


2990 


SYS10B0,23,8:REn SET CU 




RSOR 


AT 23 LINE, 8 CHARACTER 



S AL0N6 

9A 3000 PRINT"CRUS0N3PRESS ANY 

KEY TO CDNT I NUEC RUSOFF] " 
BC 3010 GETAS: IFAS-""THEN3010 
53 3020 RETURN 

9A 3030 REn nEn/nAP and conn 

ANDS PRINTOUT 
8C 3040 PRINT"CD0UIN3 THIS PART 

OF THE PROGRAn PRINTS OUT" 
7G 3050 PRINT" A nEHDRY MAP AND 

A LIST OF THE NEW" 
El 3060 PRINT" COnnANDS . SO IF 

YOU HAUE A PRINTER" 
BB 3070 PRINT" nAKE SURE IT IS 

READY NDld , " 
2C 3080 PRINT" IF YDU DON'T HAU 

E A PRINTER THEN YOU" 
C2 3030 PRINT" WILL JUST HAUE T 

0 REFER TO THE nAGA2INE" 
17 3100 G0SUB2990 

AC 3110 QPEN2,4:SIS-CHRSC15):BS 
S-CHRSCB) 



EA 31S0 PRINT*2,CHRSC14)"CSPC13 

3NEUJ ttEnORY nAP" 
AB 3130 PRINT«2,CHRSC143"CSPC12 

,CY1E3"SIS 
FA 3140 PRINTK2 

D5 3150 PRINTtt2,SIS" CCA,S*18, 
CS]"BSS 

04 3160 PRINTH2.SIS" CCQ.S-16, 
CtdD-192 BYTE9 STORAGE"BSS 

F7 3170 PRINT#2,SIS" CS-.SPC18 
,S-3"BSS 

33 31B0 PRINTtt2,SlS" ES-.SPC1B 
,S-3*'BSS 

CE 3130 PRINT#2,SIS" CS-.SPC18 
,S-3-BITnAP SCREEN C57344 - 
65344) "BSS 

A5 3200 PRINT#E,SIS" CS-.SPC18 



,S-D"BSS 

06 3E10 PRINTttE.SIS" CS-,SPC1B 
,S-3 OR STORAGE AREA"BSS 

01 3220 PRINTtt2,SII" CS-.SPC18 
,9-3 "BSS 




DB 3230 PRINT#2,5IS" CC0,S*1B, 
CUD "BSS 

CD 3240 PRINT#2,SIS" CS-.SN18, 
S-3"BSS 

F8 3250 PRINT#2,SIS" C5-.SN1B, 
S-3-UNUSABLE C UIC, SID, I/O 
ETC . 3 "BSS 

81 3260 PRINTB2.SIS" CS-,SN18, 
S-3"BSS 

73 3E70 PRINT*2,SIS" CCQ.S-18, 
CU3"BSS 

4A 3EB0 PRINT#2,SIS" CS-.SPC1B 
,9-3-CHARACTER SET C51E00 - 

5324BH256 
OE 3290 PRINTK2, "CHARS. • 8 BYT 

ES)"BSS 

91 3300 PRINTtt2,SII" CS-.SPC19 
,S-3"BSS 

BC 3310 PRINT#2,SIS" EC0,S"1B, 
CU3-SPRITE POINTERS (51182 - 
S11993 "BSS 

71 3320 PRINT#2,SIS" CC0,S*18 
CUD "BSS 

72 3330 PRINT*2,SII" CS-,SPC18 
, S-3-5CREEN nEnORY C5017B - 
51175)"BSS 

BB 3340 PRINTH2.SIS" CCQ,S*18, 
CU3"BSS 

1A 3350 PRINTtt2,SIS" CS-.SPC19 
.S-3-DISPLAY SPRITE STORAGE 
CO-153 C49152"; 
AC 3360 PRINTH2, " - S0175)"BSS 
FB 3370 PRINT«2,S1S" CCQ.S-19, 
CUD "BSS 

DF 33B0 PRINTH2, SIS" CS-.SPC18 
, S-3-SPRITE STORAGE C12B SPR 
ITESVBSS 

9C 3390 PRINTA2.SIS" CS-.SPC18 
.S-D-BSS 

BE 3400 PRINT#E,SIS" C5~,SPC1S 
,S-3 OR CHARACTER SETS C 4 ) " B 
SS 

28 3410 PRINTB2.SIS" CS-.SPC1B 
,S-3"BSS 

DF 3420 PRINT#2,5IS" CS-.SPC1B 
,S-3 OR BITnAP STORAGE C1)"B 
SS 

04 3430 PRINT#2,SIS" ES-.SPC1B 
,S-3"BSS 

85 3440 PRINT*2,SIS" CS-.SPC18 
, S-D OR OTHER C40960 - 49151 
) "BSS 

88 3450 PR1NT#2,SIS" CCQ.5-18, 
CUD "BSS 

17 3460 PRINT#2,SIS" CS-.SPC18 
.S-3-T0P OF BASIC C40959)"BS 
S 

EC 3470 PRINT#2,SIS" CS- SPC18 
,S-3"BSS 

BE 3480 PRINTtt2,SIS" CS-, SPC18 
,S-D"BSS 

3B 3490 PRINTH2.SIS" CS-.SPC1B 
,S-3"BSS 
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A6 
5A 
53 

BO 
CB 
FG 1 
79 

50 
BD 

AD 

1C 



3500 printh2.sis" cs-.sn.sm 
.sn.sm.sn.sm.sn.sm.sn.sm.sn. 
sm.sn.sm.sn.sm.sn.sm.s-:)" 

3510 PRINTtt2,5IS"CSPC3]MAIN 

basic memory - 37162 basic 
bytes free" 

3520 printh2 , sis" cs-,sm,5n 
.sm.sn.sm.sn.sm.sn.sm.sn.sm, 
sn,sm,sn.sm,sn,5m,sn,s-:)"bss 

3530 printk2.sis" cs-.spc1b 
,s-:"BSs 

3S40 PRINT#S,SIi" CS-.SFC18 
,S-3"BSS 

3550 FR1NT#2,5IS" CS-.SPC1B 
,S-]"BSS 

35B0 PRINTW2.SIS" CS-.SPC1B 
, S- 3 -START OF BASIC C3795)"B 
SS 

3570 PRINT#2,SI$" CC0.S-1B, 
CWITBSI 

35B0 PRINTttB.SIS" tC0,S»l8, 
CUD-NEW COMMANDS PROGRAM CIO 
20 -3794) "BSS 

3590 PRINTM2.SII" CS-.SN1B, 
S-D"BSE 

3600 PRINTH2.5IS" CCZ,S*1B, 
CX3- OPERATING SYSTEMS AREA" 
BSS 




BC 
5E 



B3 



9B 



49 



95 



6B 
5E 

FF 

4C 
5B 

B5 
S7 

11 
OB 

5C 
2A 

39 

76 
FC 

ED 
CB 



78 
BB 

7B 
AE 

OB 
85 

BD 

05 
59 



F7 



3610 FRINT#2,5IS 

3620 PRINT#2," CURRENT COLO 

UR STORED IN - C 254 V : PRINT* 

2 

3630 PRINTH2 , " UOICE CONTRO 
LS CPEEK TD FIND OUT IF UOIC 
E STILL ON)"; 

3640 PRINTM2, "I .E. 0-OFF , 10 
0-ON" 

3650 PRINT#2, "CSPC53U1-112B, 

U2-1129, U3-1I30" 
3660 PRINT#2:PRINT*2, " PIXE 
L ON OR OFF - PEEKC02) I.E. 
0-OFF, 100-ON" 
3670 GOSUB2990 
3680 PR1NT*£,CHRSC14)"CSPC12 
3 LI ST OF COMMANDS" 
3690 PR1NT#2,CHRSC14)"CSPC11 

,CYiea"sis 

3700 PR1NTK2 

3710 PRINTH2, "RECONFIGURE - 
SYS 1020" 

3720 PRINTH2, "CCTli:" 

3730 PRINT*2, "RASTER INTERRU 

PT ON - SYS1023" 

3740 PRINT#2, "CCT19D " 

3750 PRINTH2, "RASTER INTERRU 

PT OFF - SYS1026" 

3760 PRINTM2, "CCT203" 

3770 PRINTM2, "SPLIT-SCREEN - 

SYS1029.0 OR 1-200" 
3780 PRINTK2, "CCT12, 5PC103 CO 
-OFF, 1-200-SCREEN LINE) " 
3790 PRINT#2 

3B00 PRINTH2, "BITMAP ON - SY 
S1032" 

3810 PRINTW2, "CCT9J" 

3B20 PRINT*t2, "BITMAP OFF - S 

YS103S" 



3B30 PRINT#2, "CCTIOD" 

3840 PRINT#2, "CLEAR BITMAP - 

SYS1038" 
3B50 PRINTB2, "CCT12D" 
3860 PR1NTH2, "COLOUR BITMAP 
- SYS1041" 

3870 PRINTK2, "CCTISD" 

3B80 PRINTK2 , "SET CURRENT CD 

LOUR - SYS1044, 0-15, 0-15" 

3B90 PRINTttB, "CCTIB.SPCIOKD 

RAW )C BACKGROUND)" 

3900 PRINT ttB 

3910 PRINTH2, "PLOT POINT ON 
BITMAP - 9YS1047.0-319.0-199 
,0-1-2" 

3920 PR I NT ttB , "CCT20, SPC10D CX 
-COORD) CY-COORD) CMODE 0-UNLO 
T."; 




C5 3930 PRINTttB, "1-PL0T.2-PEEK) 



ID 
03 



FO 

3B 
OC 



EB 



69 
4F 

61 

B7 
EB 



3940 PRINT#2 
3950 PRINTttB, "DRAW LINE - SY 
51050,0-313,0-199,0-319,0-19 
8,0-1" 

3960 PRINT#2,"CCT9,SPC103CX1 
)CYDCX2)CY2) CMODE)" 
3970 PR1NTH2 

39B0 PRINTM2, "DRAW CIRCLE - 
SYS1053 , 0-319 , 0-199 , 1-129 , 0- 
1" 

3990 PRINTttB. "CCT11 , SPC10KC 
X-COORD ) CCY-COORD ) C RAD I US ) C M 
ODE)" 

4000 PRINTW2 

4010 PRINTH2, "FILL BITMAP - 
SYS1056, 0-319 , 0-199 , 0-1 " 
4020 PRINT#2, "CCT11 , 5PC10KX 
-CQDRO) CY-COORD) CMODE)" 
4030 PRINTttB 

4040 PRINTttB, "FILL WITH CHAR 
ACTER - SYS10S9 , 0-319 , 0-199, 
0-1,0-255" 





51 



AS 
B7 



A7 



4050 PRINTH2, " C CT19 , SPC103 CX 
-COORD) CY-COORD) C MODE )C CHAR. 
NO)" 

4060 PRINTtt2 

4070 PRINT#2, "SET SOUND - SY 

51062 , 1-3 , 0-15 , 0-2SS , 0-255 , O 

-255,0-255,0-255, 

40B0 PRINTH2, "0, IS, 0-255,0-2 

55" 



3C 



El 



BB 

39 



BO 



4090 PRINTttB, "CCT9,SPC93CU0I 
CEKUOLUMEKLOU FREQ) CHIGH F| 
REQ)CA/D)C5/R)" 
4100 PRINTttB , "C8PC183 CLOU PUI 
LSE) CHIGH PULSE) CUAVEFORM) CD| 
URATION) " 
4110 PRINTttB 
4120 PRINTttB , "SET SPRITE - SI 
YS1065 ,0-7,0-1, 0-255 , 0-15 , 0- | 
320,0-255,0-1,0-1"; 
4130 PRINTttB, ".0-1,0-15,0-15] 



64 4140 PRINTtt2, "CCT10.SPC103CS 
PRITE NO)COFF/ON)CSPRITE POll 
NTER)CCOL0UR) "-, 

23 4150 PRINTtt2,"CX POS)CY POS)| 



93 



F4 
E9 



51 



2F 
4C 
61 



E7 



6A 
2B 



94 



29 

82 
ID 



CB 

BO 
3D 

EE 

90 



'CSPCBOHX EXP) 
COL OFF/ON) CMCI 



4160 PRINTH2. 
CY EXPKMULTI 

1KMC 2)" 
4170 PRINTK2 

41B0 PRINTtt2, "MOUE MEMORY - 
SYS1068 , 0-GS535 , 0-65535 , 0-32| 
767" 

4190 PRINTttB, "CCTll.SPClODCAl 
DDRESS MOUE TO) £ ADDRESS MOUE| 

FROM)"; 
4200 PRINTttB, "C LENGTH)" 
4210 PRINT#2 
4220 PRINTW2, "FILL MEMORY ■ 
SYS1071 , 0-65535 , 0-32767 , 0-25 | 
5" 

PRINTH2. "CCT11.5PC10K5I 
ADDRESS) C LENGTH) C NUMBER 



4230 
TART 

J" 

4240 
42S0 



PRINTK2 

PRINT#2, "SAUE MEMORY - 
SYS1074, "CSPC43 1 , 08, 00 , 0-655| 
3S, 0-65535" 
4260 PRINTttB, "CCT11,SPC10:KF| 
1LE NAME)CDEUICE)COO)CMEMDRY] 

START)"; 
4270 PRINTW2, "CMEMORY FINIS 
3" 

4290 PRINTttB 
4290 PRINTM2, "LOAD MEMORY ■ 
SYS1077, ' C 5PC43 ' , OB , 00 , 0-655) 
35" 

4300 PRINTttB, "CCTll.SPClOKF 
ILE NAME)CDEUICE)COO)CLOAD A| 
DDRESS) " 
4310 PRINTK2 

4320 PRINTttB, "SET CURSOR P05 

- SYS10B0, 0-24,0-39" 
4330 PR INT BB , "CCT14, SPC103 CR| 
0W)C COLUMN)" 
4340 PRINTttB:CL05EB:PRINT" 
LR3 " : END 
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*^DiskOS*» 



Accessing the disk drive is child's play through the 

square window 



D 



iskOS is an operating system 
which employs windows to ease 
communications with a disk drive. 
Its ingenious routines interrupt 
without interrupting! After calling 
up DiskOS, programs can resume as 
though nothing had happened. 

Whenever you need to use one of 
the functions of DiskOS just press 
the CBM key with the CTRL key 
and a menu will appear at the top of 
the screen. This may be done when 
running Basic or machine-code pro- 
grams and should be compatible 
with most of them because it does 
not use the IRQ interrupts. 

When selecting options use the 
first capital letter of the menu name 
or option. After a command is com- 
plete, press the spacebar to get back 
to the opening menu. 

The QUIT option on all the 
menus will return you to the start-up 
menu at the top of the screen. 

Menu 1 - Info 

Press T for Info and the menu will 
appear. Just one item is contained 
on this one - a short note about the 
program. 

Menu 2 - Disk 

This allows access to the disk 
commands. 

DIR displays the directory 
which, unlike LOAD"$",8, does not 
overwrite a Basic program. 

ERROR reads the disk status (if 
the red LED Hashes). 

INIT reads in the disk informa- 
tion after a disk change. 

VAL is the validate command 
which cleans up the disk, and should 
aiwavs be used after SCRATCHing 
files. 



FORMAT is the same as the 
usual Basic command OPEN 
1,8,1 5,"NEW;TEST DISK.,64": 
CLOSE 1. 

RENAME will change a file 
name to another name, just type 
NEW NAME=OLD NAME and 
press RETURN. 

COPY will copy a file from one 
disk to another and will ask for the 
"source" disk which holds the origi- 
nal and the 'destination' disk onto 
which the copy is made. 



Menu 3 - Misc 

KILL. This returns the C64 to nor- 
mal and disables the use of 



CTRL+CBM. SYS 49152 will res- 
tore it. 

EXIT will let the computer carry 
on from where you interrupted it bv 
pressing CTRL+CBM. 

Menu 4 — Screen 

COLOURS allows you to change the 
screen colours and the new setting 
will be maintained until changed 
again or SYS 49152 is called to 
restore the default values. 

DUMP#4 will dump the text 
screen at $0400 to the printer. If you 
design a screen using the cursor keys 
in Basic and go to the screen menu 
you can then print it out with this 
facilitv. 



PROGRAM: DI5KD5.EA5 



DE 10 REM DISKOS 

3D SO REM TYPE IN THIS PROGRAM Fl 
AND SAUE IT DN A SPARE TAPE 
DR CASSETTE 

DD 30 REM WHEN YDU RUN IT MAKE 4S 
SURE YDU HAUE CUED UP THE TA 
PE/DISK FDR SAUINE DISKOS 

30 40 REfl WHEN USING DISKOS, LO D7 
AD USING ,B,1 AND TYPE NEW 

6D 50 REM TYPE SYS 49158 TO GET 

THE DISKOS MESSAGE SB 

4B 60 BL-2S2 : LN-SO :5A-4315 
2 

AS 70 FOR L-0 TO BL:CX-0:FDR D- 75 

0 TO IS: READ A:CX-CX+A 
B5 80 P0KE53580.A:P0KE SA*L*1G+ 

D, A: NEXT D 55 
SI SO READ A: IF AXCX THENPRINT 

"ERROR IN LINE , '- 1 LN*(L*10):ST 

□P EB 
4A 100 NEXT L 

DF 110 DATA 163,167,160,192,33, 

30,171,163,14,141, 32,509,163 94 

,6,141,33,1834 
74 150 DATA 508,150,169,30,141, 

143,5,159,195,141,144,5,99,9 98 

6,173,141,1953 
74 130 DATA 5,501,8,540,3,76,75 

,535,150,169,75,141,143,5,18 C7 

9,535, 1BB6 
BS 140 DATA 141,144,5,88,173,54 



,508,141,83,3,159,53,141,54, 
508,169,1751 

150 DATA B,35,510,55S.5B,35, 
540,555, 140.60,3, 142,61,3, 16 
3,0, 1666 

160 DATA 133,555,35,199,135, 
32, US, 195, 189, 1 , 133, 25S , 32 , 
199, 192,24,2155 

170 DATA 172,60.3,174,61,3,3 
2,240,555,32,17,195.173,63,3 
, 141. 1651 

180 DATA 54,209,36,159,1,133 
,504,169,5. 160. 193,32,30, 171 
,32,228, 1855 

ISO DATA 255,240,551,201,73, 
20B , 3 , 76 , 1 07 , 133 , 20 1 , 68 , 50B , 
3,76,75,5535 

500 DATA 194,501,77,508,3,76 
,89, 135,501 ,83,208,3,76, 189, 
504.76.S0B3 

210 DATA 125,182,169,0,133,1 
98 , 35 , 154 , 147 , 17 , 35 , SB , 73 , 83 
,75,79,1845 

220 DATA 83,32,86,43,46,50,3 
5 , 40 , 85 , 83 , 69 , 32 , 67 , B4 , B2 , 76 
,396 

230 DATA 43,67,86,77,41,13,0 
,163,0, 133,251, 133,553,169,4 
.133,1552 

240 DATA 555,169,160,133,554 
, 1 65 , 5S5 , 20B , 20, 160, 0, 177 , 25 
1,145,253,200,5802 



•2" 

& 

I 

35 
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A2 
11 
48 
53 
04 
38 
EE 
45 
2D 
81 
4B 
42 
35 
El 
3F 
BC 
7E 
AO 
7E 
8E 
j 33 
6C 
D4 
21 
11 



250 DATA 208,243,230,252,230 
, 254 , 165 , 252 , 201 , B , 20S , 233 , 9 
8.160,0,138,2950 
260 DATA 1,177,253,145,251,2 
00 , 208 , 249 , 230 , 254 , 230 , 252 , 1 
65, 252, 201. B, 3076 
270 DATA 208,239,230,1,96,14 
7, 147. 18, 176, 192, 192, 132, 192 
.192,192,178,2592 
2B0 DATA 192,132,132,192,132 
,132,178,192,192,192,192,192 
,192,178,192,192,3044 
290 DATA 192,192,192,192,192 
, 192 , 174 ,13,18, 221 , 32 . 201 , 78 
.70,79,32,2070 

300 DATA 221,32, 196, 73, B3, 75 
, 32 , 221 , 32 , 205 , 73 , 83 , 67 , 32 , 2 
21,32,1679 

310 DATA 211.67,82,69,69,78, 
32 , 221 , 13 . 18 , 1 73 , 192 , 192 , 192 
, 192, 192, 1993 

320 DATA 192,177,192,192.192 
, 132,192, 192, 177, 192, 192, 192 
, 192 , 192 , 192 . 177 , 3027 
330 DATA 192,192,132,132,192 
, 192 , 192 , 192 , 1 89 , 13 , 0 , 1 69 , 1 1 
7,160,193,32,2409 
340 DATA 30,171,76,173,193.1 
9,17,17,18.171,192,192,192,1 
"92,192,192,2037 
350 DATA 219,13,18,221.193,6 
6.73,85,84,32,221.13,18,173, 
192,192,1819 

360 DATA 132,132,192,192,189 

, 13 , 0 , 32 , 22B , 255 . 240 , 251 , 201 

,89.240,12,2518 

370 DATA 201, 7B, 208 ,243, 104, 

104,76, 115, 192,76,151, 193.96 

,32,228,255,2352 

380 DATA 240,251,201,65,208, 

247 , 76 . 1B7 . 193 , 20B , 220 , 169 , 2 

00, 160, 193.32.2B50 

390 DATA 30,171,32,176,197,7 

6,115,192,19.17,17,17,17,17, 

17, 17,1127 

400 DATA 17,17,32,32,18,176, 

192 , 192 , 192 , 192 , 192 , 1 92 . 192 . 

192,192,132,2212 

410 DATA 192,192,192,192,192 

, 132 . 132 , 192 , 192 , 192 , 192 . 192 

,192,192,132,192,3072 

420 DATA 192,132,192,132,192 

, 192 , 192 . 174 , 13 . 32 . 32 , 18 , 221 

.32,138,73,2135 

430 DATA 83,75.207,211, 32, B6 

, 49 , 46 , 50 , 32 , 66 , 83 , 32 , 193 . 46 

,205,1508 

440 DATA 65.83,72,63,87,32,2 
02 , 65 , 78 , 32 , 39 , 56 , 56 . 32 , 221 , 
13, 1209 

450 DATA 32.32,18,173,192,19 

2 , 192 . 132 , 192 , 192 , 132 , 132 , 19 

2,192,192,192,2559 

460 DATA 192,192,192,192,192 

, 192 . 192 , 192 , 192 , 192 , 192 , 192 

,192,192,132,192,3072 

470 DATA 192,192,192,192,192 

,189,13,0,169.83,160,194,32, 

30,171,76,2077 

490 DATA 18,195.96.19,17,17, 

29,29,29,29,29,29,29, 18,219, 

192,934 

430 DATA 192,192,192,132,192 



, 213 , 13 , 29 , 29 , 23 , 23 , 29 , 29 , 29 
,18,221,1634 
60 500 DATA 196,73,82,46,32,32, 
221 , 1 3 , 23 . 23 , 29 , 29 , 29 , 29 , 29 , 
18,316 

83 510 DATA 221 , 137 , B2 , B2 , 79 , 82 
. 32 , 22 1 , 1 3 . 23 , 29 , 29 , 29 , 29 , 29 
,29,1212 

9C 520 DATA 18,221.201,79,73.94 
, 46 , 32 , 221 , 13 , 29 , 29 , 29 , 29 , 29 
,29,1161 

DB 530 DATA 23,18.221,214,65.76 
,46,32,32,221,13,29,29,29,29 
,29,1112 

07 540 DATA 29,29,18,221,211.67 
,82,46,32,32,221,13.29.29,29 
,29,1117 

23 550 DATA 29,29,23,18,221,198 
, 79 , 82 , 77 , 65 , B4 , 221 . 1 3 , 29 , 23 
,23, 1232 

AB 560 DATA 23,29,29,29,18.221, 
210 , 89 , 7B , 65 , 77 , 63 , 221 , 13 , 29 
,29,1215 

5D 570 DATA 23,29.29.29,23,18,2 
21 . 135 , 73 , 80 , 89 , 32 . 32 , 221 , 13 
,29, 1154 

36 580 DATA 29,29,29.23,23.23,1 
8 . 221 , 209 , 85 , 73 , 84 , 32 , 32 , 221 
,13,1162 

74 590 DATA 29,29,29,29.23,29,2 

9, IB, 173, 192, 192, 192, 192, 192 

, 192, 189, 1735 
7D 600 DATA 13,0,32,228,255,240 

, 251 , 201 , 81 . 20B , 3 , 76 , 1 15 , 192 

,201,68,2164 
CI 610 DATA 208,3,75,17,196.201 

, 69 , 20B , 3 , 76 , 212 , 198 , 201 , 73 . 

208,3, 1950 
DA 620 DATA 76,8,198,201,96,20b 

, 3 , 76 , 32 , 198 , 201 , 83 , 20B , 3 , 76 

, 16,1673 

68 630 DATA 200,201,70,208,3,76 

, 1 32 , 200 , 201 , 82 , 208 , 3 , 75 , 220 

,200,201 ,22B1 
F5 640 DATA 67 , 20B , 3 , 76 , 4B , 201 , 

76, IB, 195, 169, 100, ISO, 195,32 

,30,171,1743 
E9 650 DATA 76,224.135,96,19,17 

, 17 , 29 , 29 , 29 , 29 , 29 . 23 , 29 , 29 , 

23 , 305 

OA 660 DATA 23.29,29,29,29,19,2 

13 , 132 , 192 , 192 , 192 , 1 92 , 1 92 , 2 

19,13,29,1795 
ID 670 DATA 29,29.29,29,29,29.2 

9,29,23,29,29,29,29,18,221,2 

03,819 

EA 6B0 DATA 73.76,76,32,32,221, 
13,29,29,29,29,29,29.29,29,2 

9,784 

DF 690 DATA 29,29,29,29,29,18,2 
21 , 197 , 8B , 73 , B4 . 32 , 32 , 221 , 13 
,29,1153 

14 700 DATA 29.29,29,29,29,29,2 
9, 29, 29 , 29 , 23 , 29 , 29 , IB, 221 , 2 

09,825 

91 710 DATA 85,73,84,32,32,221, 
13 , 29 , 29 , 29 , 29 , 29 , 29 , 29 , 29 , 2 
9.B01 

5C 720 DATA 29.29,29,29,29,18,1 
73, 192, 192, 192, 192, 192. 192, 1 
B9, 13,0,1690 
7A 730 DATA 32,228,255,240,251, 
201 , 81 , 208 , 3, 76, 1 15, 192 , 201 , 



69,208,6,2365 
5C 740 DATA 169,9,32,210,255,96 
, 201 , 75 , 208 , 230 , 169 , 14 , 141 , 3 
2. 20B, 159.2218 
EB 750 DATA 6,141,33,209,169.21 
, 141 , 24 , 208 , 169 , 9 , 32 , 2 10 , 255 
,76,14B.18S0 
2E 750 DATA 227, 169, 14B, 160, 196 
, 32 . 30 , 171 , 163 , 36 , 133, 251 , 16 
9,251,133,187.2462 
EB 770 DATA 169,0,133,188,169.1 
,133,183, 169.8.133,186, 169,3 
8,133, IBS, 2055 
54 780 DATA 32,213,243,155,186, 
32 , 180 , 255 , 165 , 1B5 , 32 , 150 , 25 
5,169,0,133,2335 
A8 790 DATA 144,160,3,132,251,3 
2,165,255,133,252,173,141,2, 
201,1,240,2285 
DO 800 DATA 249,164,144,208.47, 
32 , 165, 255 , 164 , 144 , 20B , 40 , 16 
4,251,136,208,2579 
D6 810 DATA 226,166,252,32,205, 
189 , 169 , 32 , 32 , 210 . 255 , 32 , 155 
,255,166,144,2530 
3F 820 DATA 208 . IB, 170 , 240, 8, 32 
, 210 , 255 , 76 , 107 , 136 , 169 , 13 , 3 
2,210,255.2197 
A5 830 DATA 160,2,208,191,32,66 
,246,169,180,160, 136,32,30, 1 
71,32,176,2051 
B7 840 DATA 197,76,115,192.147, 
200, 79, 76, 6B, 32, 211 ,200,201 , 
199,212,32,2236 
16 850 DATA 84,79,32,208,65,85. 
83 , 63 , 32 , 204 , 73 , B3 , 84 , 73 , 7B , 
71,1403 

Bl 860 DATA 46.17,13,0,17,208,8 
2 , 69 , 83 , B3 , 32 , 39, 211 , BO, 65, 6 
7,1112 

B6 870 DATA 69,39. 32, 70, 79, B2, 3 
2,196,73,83,75,207,211,32.20 
5,59. 1554 
F3 880 DATA 78,85,46,0,24,160,0 
, 162 , 21 , 32 , 240 , 255 , 163 , 23 , 16 
0,137,1652 
E5 B90 DATA 32.30,171,169,15,16 
2,8,160, 15,32, 1B6, 255, 169,0, 
32,189,1625 
19 900 DATA 255,32,192.255,162, 
15 , 32 , 198 , 255 , 32 , 207 . 255 . 201 
,13,240,5,2349 
5A 910 DATA 32. 210, 255, 20B, 244, 
169 . 15 , 32 , 135 , 255 , 32 , 204 , 255 
,32,176.197,2511 
4F 920 DATA 76.115,192.32.176.1 
97,96.32,18,176,192,192.192, 
192,192,192,2262 
44 930 DATA 192,192,132,192,192 
, 192 , 192 . 192, 192, 192 , 132. 132 
.132,192,192.192,3072 
DO 940 DATA 192,192,192,192.192. 
, 192 , 192 , 192 , 192 , 192, 192 . 192 
,192.192,174,13,2875 
87 350 DATA 32,18,221,211,84,65 
, 84 , 85 , 83 . 58 , 32 , 32 , 32 , 32 , 32 , 
32,1133 

64 350 DATA 32,32,32,32.32,32,3 
2 , 32 , 32 , 32 , 32 . 32 , 32 , 32 , 32 , 32 

,512 

CD 370 DATA 32,32,32,32,32,32.3 
2 , 221 , 13 , 32 , IB , 173 , 132 , 192 , 1 
92,192,1449 
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BE 9B0 DATA 192,192,192,192,192 

, 192, 192, 192, 192, 135, 195, 195 

,195,192,192,192,3075 
BB 990 DATA 135,192,132,132,195 

, 195, 135,192.192, 195, 135,135 

,132,132,195,135,3072 
BE 1000 DATA 199,157,157,157,15 

7 , 157, 157 , 157 , 157, 157, 157, IS 

7, 1S7, 1S7, 157. 157,2544 
70 1010 DATA 157,157,157,157,15 

7, 157 , 157 , 157 , 157 , 157 , 157 , 15 

7,157,157,145,0,2343 
2D 1050 DATA 35,558,255,201,35, 

20B , 243 , 35 , 163 , 8 , 35 , 177 , 255 , 

32,133,255,5415 
F2 1030 DATA 41,128,508,5,169,1 

11,32, 147,255, 163,0, 165,0,18 

9,555,137,5035 
33 1040 DATA 35 . IBB , 255 , 232 . 501 

, 13 , 208 , 545 , 35 , 1 74 , 555 ,75,51 

2, 136,0,58,2357 
4D 1050 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0, O.O-.O, 0,0 
BB 1060 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 
D2 1070 DATA 0,0,0,0.0,0,0,0,32 

, 13, 13B, 163,73, 141,222, 197, 1 

051 

7B 10B0 DATA 76.184,197,152,0,1 

63, 13, 157,554, 137,532,224,33 

,20B, 546,35, 2424 
8F 1090 DATA 32,13,138,153,86,1 

41 , 555 , 197 , 76 , 184 , 137 , 152 , 0 , 

169, 100, 157,2103 
03 1100 DATA 251,5,232,536,65,3 
,508,245,162,0,142,64,3,32,1 

S7, 138,2004 
EF 1110 DATA 32, 22B , 255 , 240,248 
,201,20,20B,6,32, 133, 19B.7B, 

51, 198,201,2337 
25 1150 DATA 13,508,3,163,100,1 

74 , 64 , 3 , 157 , 2S1 , 6 , 36 , 501 , 31 , 

48,3,1593 

08 1130 DATA 76,61,138,201,35,1 
6 , 3 . 76 , 61 , 138 , 201 , 42 , 208 , 3 , 7 
6,61, 1513 

45 1140 DATA 138,174,64,3,41,63 

, 157,251,6,238,54,3, 174,64,3 

,236,1733 
87 1150 DATA 65, 3 , 208 , 185 , 96, 17 

4 , 64 , 3 , 554 , 0 , 508 , 1 , 36 , 202 , 16 

9,100, 1798 
61 1160 DATA 206,54,3,174,64,3, 

157,251,6, 157,252,6,96, 174,6 

4,3,1680 
B5 1170 DATA 163,160,157,251,6, 

36, 32, 18,176,192. 192, 192, 192 

, 192, 192, 192,5409 

09 11B0 DATA 135,192,192,132,13 
2, 195, 135, 195, 135, 192, 192, 19 
2, 192, 135, 195, 192, 3072 

BD 1190 DATA 192,192,192,192,13 

2, 192, 132, 195, 192, 192, 192, 19 

2,192,174,13,32,2715 
1A 1200 DATA IB, 251, 33,35,32,32 

, 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 

32,687 

AB 1510 DATA 35,32,35.35,35.32, 
32 , 32 , 32 , 32 . 35 , 33 , 33 , 35 , 35 , 3 
2,515 

AF 1550 DATA 35,32,32,32,32,32, 
251, 13, 32, IB, 173, 193,192, 192 
,192,192,1609 



B7 1230 DATA 133,192,192,192,19 
5, 195, 195, 195, 192, 192, 132, 13 
2 , 192 , 192 , 192 , 135 , 3072 

49 1240 DATA 192,192,192,192,19 
2, 195, 195, 195, 133, 133, 192, 19 
2, 192, 132, 192, 189,3069 

FF 1250 DATA 157,157,157,157,15 
7 , 157 , 157 , 157 , 157 , 157 , 157 , 15 
7, 1S7 , 1S7 , 1S7 . 157 , 2512 

B9 1260 DATA 157,157,157,157,15 
7,157,157,157,157,157,157,15 
7,157,157,157,157.2512 

23 1270 DATA 157,157,157,157,14 
5,0,32,18,176,132,132,192,19 
2,132.133.195,5343 

A4 1580 DATA 192,192,192,195,19 
5, 195 , 132, 192, 192 , 195 , 192 , 19 
5 , 195 , 192 , 192 , 192 , 3073 

DC 1590 DATA 195,135,133,195,19 
5 , 133 , 132 , 192 , 192 , 192 , 192 , 19 
5.192,174,13,32,2715 

A9 1300 DATA 18,221,32,32,33,32 
, 32 , 35 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 
32.6B7 

C4 1310 DATA 33,33,32,32,32,33. 
35 , 35 , 35 , 35 , 32 , 32 , 32 , 32 , 32 , 3 
2,512 

77 1320 DATA 35,32,32,32,32.32, 
221,13,32,18,221,32,32,32,32 
,32,857 

90 1330 DATA 32,32,32,32,32,32, 
32,32,32,32,32,33,32,32,32,3 
2,512 

BB 1340 DATA 32,32,32,32,32,32, 
32,32,32,32,32.32,32,32,32,2 
21,701 

FE 1350 DATA 13,32,18,173,192,1 

92 . 192 , 192 . 192 , 195 , 192 , 192 , 1 

92, 192, 192, 192,2540 
74 1360 DATA 195,192,192,192,19 

2, 192, 192, 192, 192 , 192 , 192 , 19 

2, 192 , 192, 192 , 192 . 3072 
IB 1370 DATA 193,192,192,192,19 

2, 195, 195, 195, 189, 157, 157, 15 

7 , 157 , 157 , 157 , 157 , 5B54 
FE 1360 OATA 157,157,157,157,15 

7 , 157 , 157 , 157 , 157 , 1 57 , 157 , 15 

7, 157, 157, 157, 157, 5515 
A2 1390 DATA 157,157,157,157,15 

7,157,157,157,157.157,157,15 

7, 157, 145, 145,0,2331 
FB 1400 DATA 159,17,141,65,3,24 

, 150 , 0 , 162 , 14 , 32 , 240 , 255 , 169 

,166,160,1777 
2D 1410 DATA 198,32,30,171,169, 

68, 160,200,32,30,171,32,19, 1 

3B,32,43, 1585 
FA 1420 DATA 198,173,64,3,240,1 

1 . 169,83, 141,222, 197,32,103, 

500,76, 1B4.209E 
A6 1430 DATA 137,76,115,192,208 

, 76 , 59 , 65 , 83 , 69 , 32 , 1 97 , 78 , B4 

,69,82, 1692 

78 1440 DATA 32,198.73,76,63,78 
,65,77,69,32,212,79,32,211,6 
7,82, 1452 

IE 1450 DATA 65,84,67,72,46,13, 
0, 162,0, 1B9,2S1,6,201 ,100,24 
0,14,1510 

74 1460 DATA 201.31,16,3,24,105 
,B4, 157,224, 197,232,76,105,2 
00, 163, 13, 1B17 

AS 1470 DATA 157,224,197,96,169 



46 



34 



OB 



OF 



5A 
19 



39 



.20,141,55.3,24,150,0,162,14 
,32,540,1704 

1480 DATA 255,159,166,160,19 
8,32,30, 171,169, 184, 160,200, 
32,30, 171,32,2153 
1490 DATA 19, 13B, 32.43, 19B. 1 
73,64,3,240,11,169,78,141.22 
2,137,32,1820 

1500 DATA 103,200,76,184,197 
,75, 115,192,137,78,84,69,82, 
5B,32,39, 17B2 

1510 DATA 40, 196, 73, B3, 75. 35 
, 506 , 65 , 77 , 69 , 4 1 , 44 , 73 , 68 , 39 
, 32, 1213 

5F 1S20 DATA 196,79,85,33,198,7 
9,83,77,65,84,13,0,169,35,14 
1,65, 1399 

1530 DATA 3,34,160,0,165,14, 
35,240,255, 169,166, 160, 198,3 
2,30,171,1816 

1540 DATA 169,15,160,201,32, 
30.171,32, 19, 13B, 32,43, 198,1 
73.64.3,1541 

B2 1550 DATA 240,11,169,82,141, 
222 , 197 , 32 , 103 , 300 , 7B , 1B4 . 19 
7,76,115,195,2237 
1550 DATA 210,69,78,65,77,69 
, 58 , 32 , 39 , 40 , E06 , 69 , 87 , 35 , 20 
6,65, 1403 
5A 1570 DATA 77,69,41,61,40,507 
, 76 . 68 , 206 , 6S , 77 , 69 , 4 1 , 39 , 13 
,0.1149 

1SB0 DATA 32.19,205.169,17,1 
41,65.3,54, 160,0,165,14.32,2 
40,255,1535 

1590 DATA 159,166,160,198,32 
, 30 , 171 , 169 , 167 , 150 , 201 , 35 , 3 
0,171,33,19,1907 
1600 DATA 198,35,43,198,173, 
64 , 3 , 340 , 75 , 33 , 103 , 200 , 32 , 12 
5,203, 169, 1890 

1610 DATA 122,160,202,35,30, 
171 , 32 , 207 , 202 , 32 , 21S , 202 , 76 
,243,202, 169,5597 
1620 DATA 240,160,201,32,30, 
171 , 32 , 53 , 203 , 169 , 2 , 32 , 135 , 2 
SS, 32, 204. 2010 
1630 DATA 255,169,62,160,204 
. 32 , 30 , 171 , 32 , 207 , 202 , 169 , 32 
, 160,204,32,2121 
1640 DATA 30,171,32,110,204, 
32 , 1 66 , 203 , 32 , 1 38 , 304 , 35 , 504 
,555,33,176,5021 
1650 DATA 504,76,215,196,76, 
1 15 , 195 . 508 . 76 . 69 , 65 , B3 , 59 , 3 
5, 197,78, 194B 

1660 DATA 84,69.85,33,138,73 
, 76 , 69 , 78 , 65 , 77 , 69 , 35 , 84 , 79 , 
35, 1199 

1670 DATA 195,79,80,89,46,13 
,17,33,32,32,32,32,32,32,32, 
32,807 

83 16B0 DATA 32,32,32,32,32,32, 
32,35,32,32,32,32.32,32.32,3 
2,512 

1B90 DATA 32,32,32,32,32,32, 
32,32,32,32,32,32,32.32, 13,0 
.451 

1700 DATA 145,32,32,32,32,33 
,32,32,210,69,65,68,73,78,71 
,32,1035 

1710 DATA 46,46,46,32,194,76 
, 79 , 67 , 75 , 32 , 206 , 79 , 46 , 32 , 48 



BE 
21 
02 
E3 
A7 
EE 
D9 
BF 
SB 
AD 



54 



AB 



35 
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,4B, usa 

24 1750 DATA 48,13,0,54,160,0,1 
65 , 14 , 32 , 240 , 255 , 159 , 70 , 160 , 
133,32,1578 

1730 DATA 30,171,163,44,160, 
202,32,30, 171 , 76 , 151 , 193 , 157 
,215,65,62, 134B 
6F 1740 DATA 78,73,76,71,33,32, 
195, 73 , BO , B3, 32 , 215 , 73 , 76 , 76 
,32,1312 

C4 1750 DATA 197,82,65,93,69,32 
, 193,78,89,32,208,82,79,71,8 
2,65, 1507 
A4 1760 DATA 77,13,23,29,18,201 
, 78 , 32, 205 , 69 , 77 , 79 . 82 , 83 , 32 
,46, 1156 

34 1770 DATA 46,46,32,195,79,79 
,84. 73, 78, B5, 69, 32, 195,79,80 
,B9, 1340 

1780 DATA 32,40,89,47,79,41, 
32,63, 13,0, i45, 145, 145,29,29 
,29,357 

03 1730 DATA 19,208,76,65,67,59 
,32,210,197,193,196,32,195,7 
3,93,75, 1790 
BE 1800 DATA 32,201,78,32,196,8 
2,73,85,69,32,40,210,69,84,8 
,.5,82, 1451 
50 1B10 DATA 78,41,17,17,17,13, 
32 , 32 , 32 . 32 . 32 , 32 , 32 , 32 , 32 , 3 
2,503 

C4 1B20 DATA 32,32,32,32,32.32, 
32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 3 
2,512 

ED 1830 DATA 32,32,32,32,32,32, 
32,32,32,32,32,32,32, 13,0, 32 
,461 

IF 1840 DATA 22B, 255, 201 , 13 , 208 
,249,96, 169,2, 162,9,160,2,32 
,186,255,2226 
□0 1B50 DATA 173,65.3,162,146,1 
60 , 203 , 32 , 1B9 , 255 , 32 , 192 , 255 
,162,2,32,2063 
S3 1860 DATA 196,255,96,169,15, 
162,8, 160, 15,32,186,255,159, 
0,32,199,1941 
67 1870 DATA SSS , 32, 192 , 255 , 162 
, 15 , 32 , 198 , 555 , 32 , 207 , 255 , 20 
1,49,209,23,2370 
14 188Q DATA 35,207,255,201,48. 
208 , 16 , 169 , 15 , 32 , 1 95 , 255 , 1 69 
,2,32,195,2031 
74 1990 DATA 255,32,215,202,76, 
111,201, 169, 15,32, 195,255, 15 
9,2,32, 195,2156 
09 1900 DATA 255,76,212,196,169 
, 1, 133,252, 169,9, 133,253, 160 
,0,32,507,5556 
BC 1910 DATA 255,145,252,230,25 
2,208, 16, 165,5,35,105,503,53 
0,253,165,253.2763 
74 1920 OATA 197,56,208.3,76,51 
9,203,36, 144,80,257, 165,555, 
133,254. 165. 241B 
84 1930 DATA 253,133.255,162,2, 
32, 105,203,96,254,51 ,7, 199,5 
1,7,201,1941 
DA 1940 DATA 58,508,9,169,48,15 
7 , 21 , 7 , 505 , 76 ,.105, 503 , 96 , 165 
,0,189,1710 



D7 1950 DATA 224,197,157,146,20 

3 , 201 . 13 . 240 . 5 . 235 , 224 , 16 , 50 

8,541,142,65,2514 
B4 1960 DATA 3,96,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,99 
B4 1970 DATA 0,0,0,0,0,0,169,1, 

133 , 252 , 169 , B , 133 , 253 , 169 , 54 

,1341 

39 1990 DATA 133,1,160,0,55,165 
, 252 , 229 , 254 , 165 , 253 , 259 , 255 
,176,16,177,2523 

00 1990 DATA 255,32,210,255,230 
, 2S2 , 508 , 236 , 162 , 2 , 32 , 156 , 20 
4, 230, 2S3, 208, 2922 

DC 2000 DATA 227,169,55,133,1,1 

65 , 5 , 32 , 156 , 204 , 96 , 24 . 160 , 0 , 

162,21,1604 
FF 2010 DATA 32,240.255,159,166 

, 160 , 198 , 32 , 30 , 171 , 169 , 255 , 1 

50,203,32,30,2302 
BF 2020 DATA 171,32.136,204,35, 

204,255,32, 176 , 197 , 104 , 104 , 7 

6,115,192,18,2050 

01 2030 DATA 57,57,44,198,73,76 
, 69 . 35 , 515 , 79 , 79 , 32 , 204 , 79 , 7 
9,71, 1440 

FB 2040 DATA 32,212,79,32,195,7 
9 , 80 , 89 , 44 , 49 , 56 , 44 , 49 , 49 , 13 
,0,1101 

FO 2050 DATA 32,32,32,32,32,32, 
32 , 215 , 85 , 73 , 84 , 73 , 78 , 71 , 35 , 
46.97B 

53 5060 DATA 46.46.32,194,76.79 

,67,75,32,206,79,46, 13,0, 14S 

,145, 1281 
BB 2070 DATA 145 , 14S , 145 , 29 . 29 , 

29 , IB , 209 , 76 , 65 , 67 . 69 , 32 , 515 

,510,501, 1683 
OO 5090 DATA 515,197,32,196,73, 

B3 , 75 , 35, 501 , 78 , 35 , 196 . 85 , 73 

,86,69, 1717 
FB 5090 DATA 35,40,510,69,84,65 

,85,78,41,17,17,17,13,0,169, 

1,955 

65 2100 DATA 162,8,160,1.32,186 

,255,173,65,3, 162, 146, 160,20 

3,32,189,1937 
83 5110 DATA 555,35,192,255,162 

,1,32,201,255,96, 169,2,32,19 

5,255,169,2303 
AD 2120 DATA 1,32,195,255,169,1 

5 . 35 , 195 , 555 , 76 . 504 , 255 , 222 , 

21,7,199,5153 
D9 5130 DATA 21,7,201,47,509,9, 

169 , 57 , 157 , 21 , 7 , 202 , 76 , 156 . 2 

04,96,1636 
7C 2140 DATA 162,0,169,0,157,0, 

8 , 232 , 254 , 40 , 208 , 246 ,96,169, 

199,160,5070 
F7 5150 DATA 504,32,30,171,76,1 

12 , 505 , 19 , 17 , 17 , 59 , 29 . 29 , 29 , 

29,29, 1057 
Bl 2160 DATA 29,29.29,29.29.29, 

29 , 29 , 29 , 29 . 29 , 29 , 59 , 59 , 29 , 1 

8,453 

D4 2170 DATA 219,192,192,192,19 
2, 192,192,195,195, 179, 13,59, 
59,29,29,29,2092 

C5 21B0 DATA 29,59,59.59,59,59, 
59 , 59 , 29 , 29 , 29 , 59 , 29 , 29 , 29 , 2 



9,464 

AS 2190 DATA 19,551,195,79,76,7 

9 , B5 , 85 , B3 , 35 , 551 , 13, 59 , 59 , 5| 

9,59.1300 
F9 5500 DATA 59,29,29,29,29,29, 

29,59, 59,29,29,29, 29, 29, 29. 2| 

9,454 

B3 2210 DATA 29,18,221,196,65,7 

7 , BO , 32 , 3S , 52 , 35 . 221 , 13 , 29 , 5 1 

9,59, 1179 
8D 5550 DATA 29,29,29,29,29.59, 

29,29,29,59,59,29,29,59,29,21 

9,464 

86 2230 DATA 29,29,18,551,209,91 

5,73,84,32,35,32,32,221,13,21 

9,29, 1158 
81 2240 DATA 29,29,29,29,29,29, 

29 , 29 , 29 , 59 , 59 , 59 , 59 , 59 , 59 , 5| 

9,464 

9B 5550 DATA 29,29,29,18,173,191 

2, 192, 192, 195, 192, 192, 192, 19| 

2,189, 13.0.2016 
92 2260 DATA 32,528,255.240,251] 

, 201 , 81 , 208 , 3 , 75 , 1 15 , 192 , 201 

,69,208,3,5362 
83 2270 DATA 76,138,205,201,67, 

208 , 233 , 76 , 242 , 205 , 169 , 1 , 133| 

,555,32, 199,2440 
5F 25B0 DATA 195.169,4,133,186, 

169,126,133,184,169,0,162,4, 

133.113,134,2011 
F9 2290 DATA 114, 133, 193, 133, 1B| 

5, 32, 192,255, 166, 184, 32,201, 

255,165,25.169,2421 
EE 2300 DATA 13,32,210.255.32,2] 

25,255,240,46,160,0, 177,113, 

133,103,41,2035 
9B 2310 DATA 63,6,103.36,103,161 

, 2, 9, 128, 112, 2, 9, 64, 32, 210. 2| 

55, 1150 

62 2320 DATA 200,192,40,208,230! 
, 152,24, 101 ,113,133, 113, 144, 
2,230, 114,505,2199 
FE 2330 DATA 508.205,169,13,32, 
210 , 255 , 32 , 204 , 255 , 162 , 126 , 3 | 
5,195.555,76,5459 
A4 2340 DATA 115,192,169,3,150, 
206,32,30, 171 , 169, 109, 160, 20| 
6,32,30, 171 , 1955 
BD 2350 DATA 75,14,207,19,17,171 
, 17, 17, 17, 17, 17, 13,32,32,32, 
32,576 

A3 5360 DATA 35,32,49,32,46,46, 
46 , 32 , 194 , 76 , 65 , 67 , 7S , 32 , 32 , 
32.887 

23 2370 DATA 56,32,46,46,32,2071 
,82,65,78,71,69, 13,32,32,32, 
32 , 925 

35 2380 DATA 32.35.49,32,46,45, 
46,35,215,72,73,84,69,32,32, 
32,924 

CF 2390 DATA 57,32,46.45,45,32, 
194,82,79,97,78, 13,32,32,32, 
35 , 950 

75 2400 DATA 32,35,50,35,46,46, 
46 , 46 , 46 , 35 , 510 , 69 , 68 , 35 , 35 , 
32,851 

D5 2410 DATA 65,32,46,46.48,35, 
510,69,68,32,50, 13 . 0 , 35, 32, 3| 
5,805 
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CF 2420 DATA 35,32.35,51.32,46. 
46 , 46 , 45 , 32 , 1 35 , B9 , 65 , 78 , 32 , 
32.BS6 

18 2430 DATA 32,55,32,46,46,32, 
139 , B2 , 69 , 09 , 32 , 49 , 1 3 . 32 , 32 , 
32,883 

BO 2440 DATA 32,32,32,52,32,46, 
46 , 32 , 208 , 85, 82 , BO , 75 , 69 . 32 , 
32 , 95B 

9B 2450 DATA 32,67,32,46,46,32, 
199 , 82 , 69 , B9 , 32 , 50 , 13 , 32 , 32 , 
32.8B5 

21 2460 DATA 32,32,32,53,32,46, 
46,45,32, 199.82,69,69,78,32, 
32,912 

F3 2470 DATA 32,68,32,46,32,199 
, 82 , 69 , 69 , 78 , 32 , 50 , 13 , 32 , 32 , 
32.B9B 

E5 24B0 DATA 32,32.32,54,32,46, 
46,46,46,32, 194,76.85,69,32, 
32.BB6 

77 2490 DATA 32,69,32,45,45,32, 
194,76,85,63,32,50, 13,32,32, 
32,872 

EO 2500 DATA 32,32,32,55,32,46, 
46 , 32 , 2 1 7 , 59 , 76 , 76 , 79 , 87 , 32 , 
32 , 975 



61 2510 DATA 32,70,32,46,46,32, 
199 , B2 , 59 , B9 , 32 , 51 , 13 , 0 , 159 , 
56,1018 

E5 2520 DATA 160,207,32,30,171, 

32 , 1 70 , 207 , 14 1 , 32 , BOB , 169 , 94 

, 160,207,32,2052 
ID 2530 DATA 30,171,32,170,207, 

141 ,33,208, 169, 132, 160,207,3 

2,30,171,32,1925 
IF 2540 DATA 170,207,141,134,2, 

76,115,192,13,17,32,32,212,8 

9,80,69, 15B1 
45 2550 DATA 32,135,79,69,69,32 

, 198 , 79 , 82 , 32 , 194 , 79 , 82 , 69 , 6 

9,82, 1440 
A5 2560 DATA 32,195,79,76,79.85 
,82,46,46,46,45,45,32,0, 13, 1 

7,920 

53 2570 DATA 32, 32, 212, B9. 80, 69 

,32, 195,79,68,69,32,198,79,8 

2.32,1380 
2B 2580 DATA 194,65,67,75,71,78 

,69,32, 195,79,76,79,85,82,46 

,46.1338 

34 2590 DATA 46,46,32,0,13,17,3 
2 , 32 , 212 , B9, BO , 59, 32, 195 , 79, 
6B. 1042 



2600 DATA 69,32,198,79.82,32 
, 212 , 69 , 88 , 84 , 32 , 195 , 79 , 76 , 7 
9,85,1491 

2610 DATA 82,46,46,46,45,46, 
4E , 46 , 32 , 0 , 32 . 22B , 2SS , 240 , 25 
1,201,1643 

2620 DATA 71,16,247,201,48,4 
B,243,201,6S,1B,4,32,210,255 
.36.32,1785 

2630 DATA 210, 255 , S6 , 233 , 55 , 
96.0,0,0.0.0,0,0,0,0,0,905 
2640 P0KE193,0:PDKE194,192:P 
0KE174 , 19B : P0KE175 , 207 
2650 P0KE187,7:P0KE188,8;P0K 
E183,6:P0KE186,B:REn SUB5TIT 
UTE POKE 185,1 FOR TAPE 
2660 PDKE185,0 
2670 5Y562354 



1C 



97 



IE 



79 



25 



9B 
B6 




Fill in your name and address and give 
this form to your newsagent. 



r. 



Please order me a copy of YOUR 
COMMODORE and reserve/ deliver 
me a copy every month. 

NAME 

ADDRESS 



Newsagent: This magazine is made 

available to your wholesaler through: 

S.M. Distribution Ltd 

6 Leigham Court Road 

Streatham 

LONDON 

SWI6 2PG 



I Tel: 01-677 81 11 
I 
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Address your Christmas cards in plenty of time with 
our useful address database 



M, 



ailing List 128 uses the 40 
column screen in 128 mode and 
produces a handy database of names 
and addresses on cassette or disk. 
When you have entered all the ad- 
dresses in the file, they can be 
printed out onto labels that should 
be available from your local com- 
puter dealer. 

Your address file doesn't have to 
be printed, you can use it just to 
keep all of your friends addresses 
together in one place. When you 
enter the addresses you will be asked 
for a telephone number which can 
be entered if you're using them for 
reference but if you wish to have 
your addresses printed out, you can 
either enter part of the address in 
this space or leave it blank. When 
you're entering addresses it isn't 
necessary to put in commas and full 
stops because these are all automati- 
cally inserted. 

Enter 

There are five lines of data that can 
be entered including the name and 
telephone number (if required). Up 
to 1 000 addresses can be held in one 
disk or cassette file and the number 
of each address is displayed at the 



top of the screen along with the 
maximum number of addresses. 

Read 

All of the addresses can be viewed 
on the screen in order of entry or, if 
your looking for a particular per- 
son's address, you can just enter a 
name and the relevant address will 
be shown. 

As you scan through the file, the 
current address number and total 
number of addresses in memory are 
shown at the top of the screen. 

Print 

When you are ready to print your 
addresses, position the printer head 
about 5mm from the top of the first 
label and press Fl. All of the ad- 
dresses will then be printed in order 
of entry. 

Erase 

When you wish to erase an address 
you can either scan through the 
addresses and erase them as you go 
along or you can use the MATCH 
NAME option where you just enter 
the name and the entry will be 
erased. 



Load and save 

All your addresses are saved into a 
sequential file named 128 MAIL 
LIST. If you are using a disk drive, 
the disk status is shown in the form 
of 00,ERROR MESSAGE,00. All of 
the error types are explained in the 
Technical Information section of 
this Guide. 



Change 

If an address or telephone number 
changes, the file can be updated by 
scanning through the addresses and 
changing them as they appear on the 
screen by using the MATCH option. 

You can easily change any line 
of the address by entering the line 
number and typing in the new infor- 
mation. As you change the address 
its new form is shown at the top of 
the screen. 



Exit 

When this option is selected you are 
asked whether you have saved your 
new addresses. If not, type N and 
you will be taken back to the main 
menu. 



I 
I 



PROGRAM; HAILING LIST 1SB 



10 REM ——•«•• 

30 REM * HAILING LIST 1 

2B * 

70 REM • BY JOHN BOSU0R 

TH » 

90 REM •••••••••••«•••••••••• 

100 REM MAILING LIST PROGRA 
M »• 



110 KEY1 , "1" : KEYS , "2" KEY3 , "3" 
: KEY4 , "4" 

120 KEY5, "5" : KEYB, "5" : KEY7 , "7" 
: KEYS , "B" 

130 X-1001:DIMNSCX3,ASCX3,DSCX 

3,U£CX3,P$CX5:N-0 

140 COLDR0 , 2 : CQLDR4 , S : COLORS , 1 

ISO PRINTCHRSC85 : GRAPH I CI , 1 
150 COLOR1,1:PRINT:CHAR1,12,2, 

M MAILING LIST ",1 

170 BOX1 ,20,50, 120, 130: BUX1, 17 

, 47 , 117 , 127 : BOX1 , 14 , 44 , 1 14 , 124 
1B0 80X1.165,100,270,160:80X1, 



162 , 97 , 267 , 177 ■ BOX 1 , 159 , 94 , 264 
, 174:BDX1,5,5,314, 19S 
190 CHARl.15,4," 12B 1 
200 CHAR1.3.B, "Fl - ENTER" 
210 CHAR1 ,3,10, "F2 - READ" 
220 CHAR1 ,3, 12, "F3 - LOAD" 
230 CHARl.3,14, "F4 - SAUE" 
240 CHAR1.21, 14, "F5 - PRINT" 
250 CHAR1,21,16,"F6 - CHANGE" 
260 CHAR1 , 21 , IB , "F7 - ERASE" 
270 CHAR1 , 21 , 20 , "FB - EXIT" 
280 CHARl.SS.B.-BY" 
290 CHAR1 , 20 , 8 , "JOHN BOSUORTH" 
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300 


GETKEYCS 


850 PRINT: PRINTTABC2J "MATCH UH 


1550 


PRINT "ENTRY H";I;"OF";N 


310 


IFCS-"1 "THENGOSUB400 


ICH NAME " ; : INPUTTS 


1560 


PRINT"NAME: ";NSCD 


320 


IFCS- "2"THENGOSUB720 


960 LETTS-TS-", " 


1570 


PR I NT " ADDRESS 1:";ASCI) 


330 


I FCS- "3 "THENGOSUB1920 


970 FORI-ITON 


1580 


PR I NT "ADDRESS 2:";DSCI) 


340 


I FCS- "4 "THENGQSUB2260 


980 1FNSC1)-TSTHENGOTO1050 


1590 


PR I NT "ADDRESS 3:";USCI) 


350 


IFCS-"5"THENG0SUB1 140 


990 NEXTI 


1600 


PR I NT "TEL . NO - :";PSCI) 


3B0 


IFCS-"6"THENGOSUB2600 


1000 PRINT:PRINTCHRSC1B)"N0 SU 


1610 


PRINT: PRINT"F1 - CONTINUE 


370 


IFCS-"7"THENGOSUB13G0 


CH NAME IN FILE"CHRSC146) 






3B0 


IFCS-"B"THENGO5UB3190 


1010 PRINT:PRINT"PRESS ANY KEY 


1620 


PRINT:PRINT"F3 - ERASE" 


390 


GOTQ150 


TD RETURN TO MAIN MENU" 


1630 


GETKEYCS 


400 


REfl • • ENTER •* 


1020 GETCS; IFCS-""THEN10S0 


1640 


IFCS-"1"THEN GOTO 1580 


410 


GRAPHIC0, 1 


1030 RETURN 


1650 


IFC$-"3"THEN GOSUB 1830:6 


420 


IFN>-X-1THEN RETURN 


1040 SCNCLR 


DTD1670 


430 


CHAR1,2,2, "Fl - CONTINUE" 


1050 PRINT: PRINT" ENTRY NO . " ; I 


1660 


GOTO1630 


440 


CHAR1,2,4, "F3 - RETURN TQ 


; "OF " ; I 


1670 


N-N-1:I-I-1 


MENU" 


1060 PR I NT: PR I NT" NAME: ";N 


1680 


NEXTI 


450 


GETKEYCS 


sen 


1690 


RETURN 


450 


IFCS-"1"THEN490 


1070 PRINT" ADDRESS 1:";ASCI) 


1700 


SCNCLR 


470 


IFCS-"3"THENGOTO390 


1080 PRINT" ADDRESS 2:";DSCI) 


1710 


INPUT"MATCH UIHICH NAME" ; T 


480 


GOTO4S0 


1090 PRINT" ADDRESS 3:";USC1) 


S 


490 


N-N+l 


1100 PRINT" TEL. NO - :";PSCI) 


1720 


LETTS-TS+", " 


500 


5CNCLR 


1110 PRINT:PRINTCHRSC18)"PRESS 


1730 


FORI-ITON 


510 


CHAR1 , 10,2, "ENTER NAMES/AD 


ANY KEY TO RETURN TO MAIN MEN 


1740 


IFNSCD-TS THEN GD5UB 1B3 


DRESSES" , 1 


U"CHRSC146) 


0 




see 


PRINT : PRINT "ENTRY *";N;"OF 


1120 GETCS: IFCS-" "THEN1 120 


1750 


NEXTI 


M iX- 


-1 


1130 RETURN 


1760 


PRINT"NO SUCH NAME IN FIL 


530 


INPUT"NAME";NSCN) 


1140 REM •« PRINT •* 


E" 




S40 


LETN5CN)-NSCN)+", " 


1150 GRAPH I C0, 1 


1770 


PRINT"PRESS ANY KEY TO RE 


550 


INPUT"ADDRESS 1";ASCN) 


1160 CHAR1 ,2,2, "Fl - CONTINUE" 


TURN 


TD MENU" 


560 


LETASCN)-ASCN)+", " 


1170 CHARl.2,4, "F3 - RETURN TO 


17B0 


GETKEYCS : GDTO1020 


"570 


INPUT "ADDRESS 2";DSCN) 


MENU" 


1790 


RETURN 


560 


letdscn)-dscn)+", * 


11B0 GETKEYCS 


1800 


PRINT:PRINTCHRSC18)"N0 SU 


590 


INPUT "ADDRESS 3";USCN) 


1190 IFCS-"1"THEN1220 


CH NAME IN FILE"CHRSC146) 


600 


LETUSCN)-UICN)+", " 


1200 IFCS-"3"THEN RETURN 


1810 


PRINT:PRINT"PRESS ANY KEY 


610 


INPUT"TEL . ND - ";P£CN) 


1210 GOTO 1140 


TO RETURN TO MENU" 


620 


LETPSCN)-PSCN)+" . " 


1220 SCNCLR:PRINT:PRINTCHRStl8 


1BB0 


GETCS: IFCS-""THEN1020 


630 


IFDSCN)-" "THENLETDSCN)-"-" 


)" PRINTING ADDRESSES "CHRSC 


1830 


FORK- I TON 


640 


IFUSCN)-" "THENLETUSCN)-"-" 


146) 


1840 


NSCK5-NSCK+1) 


650 


IFPSCN)-""THENLETPSCN)-"-" 


1230 PRINT:PRINTCHRSC1B)" PLE 


1850 


ASCK)-ASCK+1) 


660 


PRINT : PRINTCHRSC 185 "AMOTHE 


ASE WAIT. "CHRSC 146) 


1860 


DSCK)-DSCK*1) 


R ENTRY? CY/N)" 


1240 DPEN1.4 


1B70 


USCK)-USCK+1) 


670 


GETKEYCS 


1250 FORI-ITON 


1BBO 


PSCKJ-PSCK+1) 


680 


IFN>-X-1 THEN RETURN 


1250 PRINT#4,NSCI) 


1830 


LETN-N-1:LETI-I-1 


6S0 


I FCS- "Y "THEN GOTO 490 


1270 PRINT»4,ASCI) 


1900 


NEXTK 


700 


IFCS-"N"THEN RETURN 


12B0 PR1NT#H, DSC I ) 


1910 


GOTO150 


710 


GOTD 670 


1280 PRINT*4,USCI) 


1920 


REM ** LOAD *" 


720 


REM *• READ 


1300 PRINT»4,PSC1) 


1930 


GRAPH ICO , 1 


730 


GRAPH I C0, 1 


1310 PRINTM4 


1940 


CHAR1 ,2,2, "Fl - CONTINUE" 


740 


IFN-0 THEN RETURN 


1320 PRINTH4;PRINT*4 


1950 


CHARl.2,4, "F3 - RETURN TO 


750 


CHAR1 , 10, 2, "READ NAMES/ ADD 


1330 NEXTI 


MENU" 


BESSES'" , 1 


1340 CL05E1 


I960 


GETKEYCS 


760 


CHARl.e.'i.Tl - READ ALL" 


1350 RETURN 


1970 


1FCS-"1"THEN2000 


770 


CHAR1,2,6, "F3 - MATCH NAME 


13B0 REM •* ERASE •» 


1980 


I FCS- "3 "THEN RETURN 


n 




1370 IFN-0 THEN RETURN 


1990 


BDTO1920 


780 


GETKEYCS 


1380 GRAPHIC©, 1 


2000 


SCNCLR 


790 


IFCS-"1"THEN820 


1390 CHARl.2,2, "Fl - CONTINUE" 


2010 


CHARl.12,2," LDAD FILE 


800 


IFCS-"3"THEN940 


1400 CHARl.2,4, "F3 - RETURN TO 


M 




810 


GOTD720 


MENU" 


2020 


CHARl.2,4, "Fl LDAD FROM D 


820 


FDRI-1TON 


1410 GETKEYCS 


ISK" 




830 


5CNCLR 


1420 IFCS-"1"THEN14S0 


2030 


CHAR1 ,2,6, "F3 LDAD FROM T 


840 


PRINT : PRINT " ENTRY ND . " ; I i 


1430 IFCS- "3"THENRETURN 


APE" 




"OF' 


';N 


1440 GDTO1360 


2040 


GETKEYCS 


850 


PRINT : PRINT ™ NAME: ";N 


1450 SCNCLR 


2050 


IFCS-"1"THEN2080 


SCI) 


1460 CHAR1 , 10, 2 , "ERASE NAMES/A 


2060 


IFCS-"3"THEN2240 




PRINT" ADDRESS l:";fi$(I) 


DDRESSES" , 1 


2070 


GOTO2040 


870 


PRINT" ADDRESS 2:";DSCI) 


1470 CHARl,e,4,' , Fl - SCAN ALL" 


20B0 


0PEN1.B.3 "0: 128 MAIL LIS 


880 


PRINT" ADDRESS 3:";USCI) 


1480 CHAR1 ,2,6, "F3 - MATCH NAM 


T . SEQ " 


B90 


PRINT" TEL. NO - :";PSCI) 


E" 


5090 


INPUTttl.N 


900 


PR I NT : PR I NTCHRS C 1 8 ) "PRESS 


1490 GETCS: IFCS-" "THEN14S0 


2100 


FORI-ITON 


ANY 


KEY TO C0NTINUE"CHRSC146) 


1500 IFCS-"1"THEN1530 


2110 


INPUT#1,NSCI)' 


910 


GETKEYCS 


1510 IFCS-"3"THEN17Q0 


5120 


LETNSCI)-NSCI)+", " 


920 


NEXTI 


1520 GOTO1360 


2130 


INPUT#1,ASCI) 


930 


RETURN 


1530 FORI-ITON 


2140 


LETASC I)- AS CI)*", " 


940 


SCNCLR 


1540 SCNCLR 


2150 


INPUTHl.DICI) 
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21G0 LET0SCI3-DSC I3 + ", " 
2170 INPUT#1,USCI3 
21B0 LETUSC I 3-USCI 3+", " 
2190 INPUT#1,PSCI3 
5500 NEXT I 
5510 CLOSE 1 

5550 IFCS-"1"THENPRINT:PRINT:P 
RINT" DISK STATUS - "DSS:5LEE 
P3 

2530 RETURN 

5540 PRINT "" i : OPEN1 , 1 , 0, "1EB H 

AIL LIST" 

5550 GOTO2090 

5560 REn 5AUE ** 

5570 IFN-0THEN RETURN 

52B0 GRAPHIC0.1 

5590 CHPR1,2,2, "Fl - CONTINUE" 
5300 CHARl.2,4, "F3 - RETURN TO 

MENU" 
5310 GETKEYCS 
2350 IFCS-"1"THEN53S0 
2330 I FCS- "3 "THEN RETURN 
2340 GOTO5560 
5350 SCNCLR 

2360 CHAR1.12.B," SAUE FILE 
".1 

2370 CHARl.5,4, "Fl - SAUE TO □ 
ISK" 

53B0 CHARl.2,6, "F3 - 5AUE TO T 
APE" 

2390 GETKEYCS 

2400 IFCS-"1"THEN2430 

5410 IFCS-"3"THEN2SB0 

5450 GOTO2390 

2430 0PEN1.8.15 

2440 PRINTH1 , "S0: 1SB MAIL LIST 



2450 CLOSE 1 

2460 0PEN1,8,3, "0:1SB HAIL LIS 

T , SEQ , WRITE" 

2470 PR1NTB1 , N 

24B0 FORI-1TON 

2490 PRINTttl , NSC I 3 

2S00 PRINTttl,ASCI3 

2510 PRINTttl, DSC I) 

5550 PRINT*1,USCI3 

5530 PRINTfll , PSC I 3 

5540 NEXTI 

5550 CLOSE1 

2560 I FCS- " 1 "THEwPR INT : PRINT : P 
RINT" DISK STATUS - "DSS : SLEE 
P3 

2570 RETURN 

2S80 PRINT" " ; : OPEN 1,1,1, "128 
MAIL LIST" 
2590 GOTO2470 
2600 REM — CHANGE 
2610 IFN-0 THEN RETURN 
2650 GRAPHIC© , I 

2630 CHAR1,2,2,"F1 - CONTINUE" 
2640 CHAR1,2,4,"F3 - RETURN TO 

MENU" 
5650 GETKEYCS 
5560 IFCS-"1"THENS630 
5670 IFCS-"3"THENRETURN 
5BB0 GOTO26B0 
2690 SCNCLR 

2700 CHARl.10,2," CHANGE AN E 
NTRY ',1 

2710 CHARl.5,4, "Fl - SCAN & CH 
ANGE" 

5720 CHARl.5,6, "F3 - MATCH" 
5730 GETKEYCS 




2740 IFCS-"1"THEN2770 

2750 IFCS-"3"THEN2910 

2760 GOTO2730 

2770 FORI-1TON 

5780 SCNCLR: PRINTNSCI 3 

2730 PRINTASCI3 

2900 PRINTDSCI3 

2B10 PRINTUSCI3 

2B20 PRINTPSC I 3 

2830 PRINT:PRINT"F1 - CONTINUE 

w 

2B40 PRINT"F3 - CHANGE" 
28S0 GETKEYCS 

2860 IFCS-"1"THEN GOTO 2B90 

2B70 IFCS-"3"THEN GOSUB 3060:G 

OTO2890 

2880 GOTO2B50 

5B90 NEXTI 

2900 RETURN 

2910 SCNCLR 

2920 INPUT"MATCH WITH WHAT NAM 
E" i MS 

2333 LETM5-MS+" , " 
2940 FOR I -1 TON 

5350 I FNS Cll -MSTHENGOSUB 3010: 

RETURN 

5960 NEXTI 

5970 PR1NTCHRSC183"ND SUCH NAM 
E IN FILE"CHRSC1463 
59B0 PRINT"PRESS ANY KEY TO RE 
TURN TO MAIN MENU " 
5390 GETCS: IFCS-""THEN53S0 
3000 RETURN 
3010 SCNCLR:PRINTNSCI3 
3050 PRINTASCI3 
3030 PRINTDSC 1 3 
3040 PRINTUSCO 
3050 PRINTPSC I 3 
3050 PRINT"1 >> NAME" 
3070 PRINT"5 >> ADDRESS 1" 
30B0 PRINT"3 >> ADDRESS 5" 
3090 PRINT"4 >> ADDRESS 3" 
3100 PRINT"5 >> TEL. NO - " 
3110 PRINT: INPUT'XHANGE WHICH" 
;C 

3150 ONCGOSUB3140 1 31S0,3160,31 
70, 31B0 
3130 RETURN 

3140 PRINT: INPUT"CHANGE TO UHA 
T"; OS: NSC I 3-OS:LETNSC I 3 -NSC 13* 
", H :I-I-1:RETURN 

3150 PRINT: INPUT"CHANGE TO UHA 
T" ; DS : ASC I 3 -OS : LETASC I 3 -ASC 13 + 
",":I-I-1:RETURN 

31B0 PRINT: INPUT"CHANGE TO UHA 
T" 1 D$:DSCI3-QS:LETOSCI3-DSCI3* 

"; I-I-l: RETURN 
3170 PRINT: 1NPUT"CHANGE TO UHA 
T";QS:USCI3-QS:LETUSCI 3-USC 13+ 
",":I-I-1:RETURN 
31B0 PRINT: INPUT"CHANGE TO UHA 
T" ; QS : PSC I3-QS : LETPSC I 3-PSC I 3 + 

I-I-1:RETURN 
31B0 REM *••••« EXIT «••••• 
3500 GRAPHICl.l 

3510 CHARl.2,5, "HAUE YOU SAUED 

NEW ADDRESSES ?" 
3550 GETKEYCS 

3230 IFCS-"Y"THENGRAPHIC0,1:EN 
0 

3240 I FCS- "N"THENRETURN: ELSE32 
00 
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Binders 



Organise and protect your disk with 
Commodore Disk User disk binders and 
data disks. 



.a 



Why not keep your Commodore Disk User program 
collection alongside your magazines in a stylish Disk User disk 
binder? The binder comes complete with 10 disk sleeves to 
organise and protect your program disks. Why not buy a disk 
binder to house all of your data disks? We can even supply 
Commodore Disk User data disks. The Commodore Disk 
User logo immediately identifies your disks and there's room 
to title them and document the disks details. 
Send for your disks and binders now! 




Prices are as follows: 

Commodore Disk User Binder £4.95, including 
10 sleeves. Order code BDYUI 
Commodore Disk User Binder with 10 sleeves and 
10 disks, £9.95 Order code BDYU2 
10 sleeves for insertion in binder, £1.50. Order code 
BDSI0 

20 sleeves for inclusion in binder, £2.75. Order code 
BDS20 

10 Commodore Disk User data disks, £5.95. Order 
code BDDI0 

All orders should be sent to: YOUR COMMODORE, READERS SERVICES, ARGUS SPECIALIST 
PUBLICATIONS, 9 HALL ROAD, HEMEL HEMPSTEAD, HERTS HP2 7BH. 
Please allow 28 days for delivery. 



PRODUCT NAME 


ORDER CODE 


QUANTITY 


PRICE 


































Overseas postage add £1.00 




CHEQUES PAYABLE TO 
A.S.P LTD 


TOTAL 




TRYING TO USE YOUR COMPUTER?... 

YOUR 



Send (his form with your remittance (o: 
INFONET LTD., 5,' River Park Estate, 
Berkhamsted, Herts HP4 IHL 
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Produce customised scrolling displays with a suite of 

editor programs 



71 



I 



s: 

I 



he Message Construction Kit is a 
useful package which can add a 
pleasing, dual-line banner effect to 
most programs. It can scroll credits 
across the screen or add wrap- 
around instructions. As long as 
there's room for an interrupt, MCK 
can help. 

Although the messages are re- 
ferred to as text, they can include 
user-defined pictures. In fact, the 
whole text is redefinable to suit your 
own particular needs. 

By raising the start of Basic to 
$3000 (12288), there is room for a 
character set from $2000 (8192) 
upwards and a message can be 
stored in the space from $0800 to 
$ 1 FFF (2048-8 191) giving room for 
a string of 6144 characters. The 
routine which forms the interrupt 
engine is stored from $C000 to 
$C166 (49152-49510). 

The three MCK editors control 
text, characters and storage accessed 
via a master menu which leads to 
sub-menus for each option. 

Text Editor (T) 

There are six options within the text 
editor. 

E - selects the 'text edit' facility 
which allows the scrolling text to be 
typed in. At first, the program asks 
for a starting point which should lie 
somewhere in the text storage range 



of 2048 to 8191. Entering text is 
then simply a case of typing in the 
words, using the DEL key to correct 
any errors. Pressing RETURN re- 
calls the option menu. 

V - the View Text option is used 
to display the text from a given point 
in memory. While the text is being 
displayed it can be paused with the 
F7 key or terminated by pressing the 
spacebar. 

This function also allows you to 
check the text length which can then 
be stored by entering the value 
through the *M* option from the text 
menu. This tells the program where 
the text ends and the wrap-around 
begins. 

S - reveals the main scrolling 
demo where the results of your 
labours can be viewed. Press the key 
and the demo is displayed in fully 
defined characters across the top 
two screen lines. Pressing the space- 
bar may cause a panic at first be- 
cause a warm reset occurs. This is 
normal and entering RUN will res- 
tore the program without losing any 
character or text information. 

R - if text has been omitted, it 
can be inserted using the option. On 
entry, the program asks for a start 
and end address of the block of text 
to be moved, the destination address 
must then be entered. For the end 
address you have to know how many 
characters need to be inserted, this 



can then be added to the start 
address to give the end value. 

This facility can also be used to 
repeal blocks of text. The limitation 
is that only 2000 characters can be 
moved at a time. 

M - As mentioned before, this is 
the 'set message length' option that 
tells the system where the loop starts 
and ends. This can be any value 
from 256 to 6144 in blocks of 256 
characters. The number of char- 
acters is increased with the V key 
and decreased using *-\ 

X - Exits from the text menu to 
the main menu. 

Character Editor (C) 

Up to 128 double height characters 
can be designed and manipulated to 
create the building blocks for a 
scrolling message. The screen dis- 
plays a 16 x 8 grid, a menu of 
options and a full character set. The 
screen layout can be seen in Dia- 
gram 1. 

The functions can be selected by 
pressing the specially allocated keys 
displayed alongside the menu but, 
by pressing the spacebar, the options 
can be highlighted with a joystick 
and the option will be executed 
when the fire button is pressed. 

The space character (ASCII 32) 
is not included in the redefinable set 
so that the screen does not fill up 
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with rubbish. This also means thai 
spaces can easily be inserted in the 
text editor by pressing the spacebar 
as normal. 

When the editing process is com- 
plete, the X option will return the 
program to Basic but the program 
can be re-run without losing the 
defined characters from memory. 

SELECT CHARACTER - This 
option moves the cursor to the char- 
acter set at the bottom of the screen. 
The character to be edited can be 
selected by moving the cursor onto 
the relevant character and then 
pressing fire. 

CLEAR CHARACTER - When 
this option is selected, the current 
character is erased ready for 
redefining. 

REVERSE CHARACTER - All 
of the on pixels are turned off and 
vice versa when this option is cho- 
sen for the character being edited. 
... FERE MODE PLOT - The fire 



mode (FM) is set to unit value and a 
pixel is set when the fire button is 
pressed. 

FIRE MODE ERASE - This is 
like the last option but the FM value 
is set to zero and the fire button is 



now used to erase a pixel. 

COPY CHARACTER - If you 
want to make a slightly altered ver- 
sion of another character from the 
set, this option allows you to copy it. 
First, the program asks for the char- 
acter to be copied and this is selected 
on the lower display using the joy- 
stick. Next, the character position to 
which the copy is made is selected in 
the same way. 

GET CHARACTER - After se- 
lecting a character for display, this 
function transfers the information 
to the editing grid. 

PRINT CHARACTER - A per- 
manent pixel map can be printed 
out using this facility. 

MIRROR X - After selection, 
the character to be mirrored is later- 
ally reversed. 

MIRROR Y - This is the same as 
mirroring in the X direction but the 
character is inverted instead. 

5 CHAR PAINT - Five consecu- 



tive characters can be designed 
simultaneously on a special 40 x 16 
grid. After the first character of the 
sequence has been selected from the 
character set display, the screen 
changes to reveal the new grid. Be- 



neath this display is the fire mode (1 
or 0) and the poke values of the 
characters displayed. The first char- 
acter must have a screen poke value 
of less than 123. 

The five character frieze can now 
be created using the V and keys 
to select the fire mode. When fin- 
ished, the characters are transferred 
to the computer's memory by press- 
ing the spacebar. F7 displays the 
characters on the screen as they will 
appear in the text and, if they look 
alright, the main editing screen can 
be re-entered by pressing *X'. 

Storage (S) 

The options available from the stor- 
age menu relate to saving and load- 
ing routines. 

CHANGE DEVICE - The sys- 
tem is initially set for tape opera- 
tions but this function will toggle 
from tape to disk. 

SAVE CHARACTERS - The 
current character set will be saved 
under a filename of your own 
choice. 

SAVE TEXT - This saves the 
current text message on to the stor- 
age device. 

SAVE MACHINE CODE - As 
the scrolling message is modified 
through the text editor, the machine 
code is automatically tailored to run 
the program. This option saves the 
correct routine to drive the current 
characters and message. 

LOAD - Can be used to load any 
of the three file types saved with the 
preceding three options. 

Program creation 

To use the files with your own 
programs, first enter the following: 

POKE 43,0:POKE 44,48:POKE 
12287, 0:NEW 

Now the character set, text mes- 
sage and machine code can be load- 
ed in. Before loading your own 
routine type NEW again. 

The following commands will 
kickstart the scroller: 

POKE 899,0:POKE 900,199: 
POKE 49324,8:SYS 49152 

The code routine occupies the 
locations from 49152 to 49510. 



Screen Poke - The value of the current charac- 
ter selected for editing. 



Character 

editing 

window 



k 



Fire mode - The highlighted pixel is turned on 
by pressing the fire button when this value is 1. 
The Jire button turns the pixel off when the 
value is 0. 



■■■■■■■■ 
■■■■■■■■ 



FM:I 



PC 

30 



CHARACTER MENU 



Option window 




SELECT CHARACTER : S 

CLEAR SCREEN : C 

REUERSE CHARACTER: R 

FIRE MODE PLOT : + 

FIRE MODE ERASE : - 

COPY CHARACTER : 0 

GET CHARACTER : G 

PRINT CHARACTER : P 

MIRROR X : 4- 

MIRROR V : t 
CHARACTER PAINT:F7 

XIT : X 



I 

u L^r o,Jt: Cbiio 

Diagram 1 - The Character Editor 




The character to be typed into the 
text editor to select the current 
edit character. 



The character set 
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INSTRUCTIONS FDR ENTERING THE 
PROGRAMS 

1) TYPE IN AND SAUE 1 MESSAGE 

CONSTRUCTION KIT' ONTO YOUR 

MASTER TAPE OR DISK 
E3 TYPE IN AND SAUE "M/C 

MAKER ' DNTO A SEPARATE 

TAPE/DISK 

3) RUN "M/C MAKER ' AND ADD IT 
TO THE MASTER TAPE/DISK 
AFTER 'MCK ' 

4) TYPE IN AND SAUE ' CHARACTER 
MAKER ' ONTO A SEPARATE 
TAPE/ DISK 

55 RUN 1 TEXT MAKER' AND ADD IT 

TO THE MASTER TAPE/DISK 

AFTER 'M/C MAKER ' 
65 TYPE IN AND SAUE 'TEXT 

MAKER * ONTO A SEPARATE 

TAPE/DISK 
75 RUN 'TEXT MAKER ' AND ADD IT 

TO THE MASTER TAPE/DISK 

AFTER 'CHARACTER MAKER ' 
B5 LOAD AND RUN 'MCK ' AND 

LOAD THE PROGRAMS IN THIS 

ORDER: 

n/c 

CHARS 
TEXT 



PROGRAM: MESSAGE CONSTRUCTION KIT 



4A 10 0E-1:DU-1:DSC15-"TAPE":DS 
C2)-"DI5K":GDTD1230 

3A 20 poke532B0,12:POKE532Bi,i5 

! P0KE646 , 0 : PR I NT " C C4 , CLR , BLA 
CK3 " ; : P0KE53269 , 1 i PQKES32B7 , 
0 

7C 30 FORX-0TD63:POKEB32+X.0;NE 
XT : PDKEB38 , 255 : F0RX-2TD5 : POK 
E832+X-3 . 195 : NEXT ; J-l 

SB 40 POKEBSa^SSiPDKEBSB.BSS^ 
DKEB35 , 255 : PDKE53248 , 24 : POKE 
S3249 , 50: POKE2040 , 13 

09 50 FQRX-0TOlS:PRINT"CUiHITE,R 
USDN , S0B3 " ; NEXT: PRINT"CHOME , 
D0U1N3"TABC9)"CC43FM:CUHITE31 
";f1D-ll:GOSUB310 

BE 60 A-0:XX-S6:SYS49397:FORQ-B 
•32T0Q+7 i P0KEB192+Q , 0 : NEXT : P 
R I NT " C HOME , DOUN53 "TAB C 9 5 " PC : 

Jp 

AG 70 PRINTTABC10)"CDDUIN2,C5,Ce 
3":PRINTTABC9)"CCM,C43eCC5,C 
G3 " : PR I NTT ABC 105 "CCT3" : GOTOS 
60 

OS 80 P-PEEKC56320): IFCPAND1D-0 

ANDY>0THENY-Y-1 
B2 90 I F CP AND25 -0ANDY< 15THENY-Y 

+ 1 

22 100 IFIPAND4)-0ANDX>0THENX-X 
-1 

0E 110 IFCPANDB)-0ANDX<7THENX-X 
+1 

62 120 I F C PAND15 5 -0THENPOKE5529 

6+X*Y*40 , MD : GDTO2B0 
24 130 PQKE53248.24+X*B:POKE532 

49 , 50+Y»B : GETAS : I FAS- " "THENB 

0 

60 140 IFAS-"+"THENMD-ll:PRINT" 
CHOME,OOUN3"TABC125"CWHITE31 
- : GOTDB0 

48 150 IFAS-"-"THENnD-l:PRINT"C 
HDnE,OOUN3"TABtl2)"CUHITE30" 
; GOTO80 

B9 160 IFAS-"S"THEN450 

B2 170 IFAS-"C"THENPRINT"tHOHE3 
" t :F0RQ-1T016:PRINT"CUHITE,R 



USON , SOB3 " : NEXT , GOTOB20 
3E 180 IFA*-"R"THENGOTOB40 
45 190 I FAS"" "THEN6B0 
EA 200 IFAS-"X"THENB10 
78 210 IFAS-"O"THENB60 
A5 220 IFAS-"G"THEN940 
F3 230 IFAS-"P"THEN1010 
E3 240 IFAS-"CF73"THEN2800 
97 250 IFAS-"_"THENGOTO2820 
FO 260 IFAS-""*THENGOTO29S0 
B4 270 GDTO680 

IS 280 ZZ-B192*B*C32«0*C+A-24+A 
•15*Y: IFY>7THEN2Z-ZZ*127*8 

30 290 IFMD<> 1THENPDKEZZ, PEEKCZ 
Z 50RC2" C7-X) 5 ; GOTD130 

08 300 POKEZZ, PEEKCZZ5AN0C255-2 
*C7-X55:GOTO130 

13 310 PRINT"CHOME,C53"TABa35'' 
CCA.SC20.CS3" 

29 320 PRINTTABC13) ,, CSB,SPC3,C4 
3 CHARACTER MENUCC5 , SPC3 , SB3 " 

30 330 PRINTTABC13J"CC5 ( CQ,SC20 
,CW3":F0RA-1T012 

65 340 PRINTTABC133"CSB3"TABC34 

5"CSB3" i NEXT: PR1NTTABC135 "CC 

Z,5C20,CX,C43" 
DO 3S0 PRINT°CH0nE,DDUN23":P0KE 

53264 ,0:POKES3271.0 
B7 3E0 F0RX-1TD12: READ AS : PR I NTT 

ABC145LEFT5CAS 1 1B)"CUHITE3"R 
I BHTS CAS, 25 "CC43 " : NEXT : PRINT 
"CHOME3" i 
BE 370 FORX-0TD31 

3B 380 POKE170B+X,X:PDKE17B8+X, 
X*32 : PDKE1868+X , X-64 i PDKE194 

B+X,X*96: Y-X 
9B 390 X-X+12B:P0KE1748+Y,X:P0K 

E1828+Y , X+32 i POKE1 90B+Y , X+64 

: P0KE1988+Y , X+96 
OC 400 X-X-128:NEXT:X-0:Y-0:RET 

URN 

S7 410 DATA"SELECT CHARACTER i 
S", "CLEAR SCREENCSPCS3 : C" , " 
REUERSE CHARACTER: R" 

60 420 DATA n FlRE MODE PL0TCSPC3 
3i ♦"."FIRE MODE ERASE ( -" 
. "COPY CHARACTERCSPC33: 0" 

AA 430 DATA "GET CHARACTERCSPC43 
: G" , "PRINT CHARACTER : P", 
"P1IRR0R XCSPC93; _" 

CF 440 DATA "MIRROR YCSPC93 : "", 
-5 CHARACTER PAINT t F7" . "EXIT 
CSPC133 : X" 

FF 450 :F-X:6-Y:A-E:Y-D:X-C:P0K 
ES3271 , 1 : P0KES3264 , A 

F7 460 IFPEEKC563203-111THEN460 

10 470 P-PEEKC56320):IFCPANDD- 

0ANDY> 0THENY- Y-l 
A6 4B0 I F C PAND25 -0ANDY< 3THENY-Y 

+1 

E2 490 I F C PAND4 5-0ANDX-0ANDA-1T 
HEN870 

51 500 IFCPANO45-0ANDX>0THENX-X 

-1 

CC 510 IFCPANDB5-0ANDX-24THEN66 
0 

0B 520 IFCPAND8)-0ANDX<35THENX- 
X+l 

FE 530 IFCPAND1B5-0THEN560 

2A 540 IFA-1AN0X-7THENX-X-1 

73 S50 P0KE53248,XX*X»B:P0KE532 

49,lB5*16 ,, Y ! GaTO470 
5E S60 U-E-24*E»1+C*D»B0:POKES5 

9B0+U , Hi POKE5S980*U+40 . 1 1 : U 

-A»24+A»l+X+Y»80 
El 570 PDKES59B0+UI,0:POKE559B0* 

U+40, 0: C-X : D-Y : E-A: X-F i Y-G: P 

OKE53271.0 
10 580 0Q-CD"32*C*A«24+A»1) :PRI 

NT"CHOnE,nOUN6,UHITE3"TABC8) 



00"CLEFT3 "; : IFQQ<10THENPRIN 

T " " 

CC 590 PDKE1024+10+9»40,QQ:PRIN 
T"CH0nE3"; : F0RL-1T016 : PRINT" 
[WHITE , RUSON , S083 " : NEXT 

EB 600 POKES3EB4,0: IFUlQnTHENRE 
TURN 

F3 610 P-PEEKC563203:IFP-111THE 

N610 
2F 620 GOTOB0 

91 630 IFDU-1THEN0U-2:DN-8:G0T0 
650 

B3 640 DU-1:DN-DU 

00 6S0 PR I NT "C HOME . WHITE 3 "TABC2 

91DS ( Qu ) : GOTO80 
D0 660 X-0:XX-0:A-1:POKE53264,A 
: GOTO540 

9E 670 X-24:XX-S6:A-0:POKE53264 

, A : GOTOS40 
20 6B0 P0KE53248,24:P0KE53264,1 

: P0KES3277 . 1 : I-Y t Y-J 
F8 G90 P-PEEKC56320) : 1FCPAND15- 

0ANDY>1THENY-Y-1 
D7 700 IFCPAND25-0ANDY< 12THENY- 

Y*l 

09 710 I F C PAND16 5 -0THEN730 

34 720 P0KE53249.65*Y*8:G0T0690 

BA 730 POKES3264,0:PDKE53277,0 
93 740 1FUQ-1THENRETURN 
A4 750 P-PEEK(56320):IFP-111THE 
N750 

05 760 J-Y:Y-I:ONJGOTO450.770.7 
80 , 730 . B00 , 860 , 940 , 1010 , 2820 
, 2950,2800, B10 

B9 770 AS-"C":GQTO140 

DB 780 AS-"F":GOTO140 

A5 790 AS-"+":GOTO140 

05 800 AS-"-":GOTO140 

75 BIO SYS65126 

27 820 FORQ-0TD7:ZZ-8192-8*CD*3 
2+C*A*24*A*15*0 : POKEZZ , 0 : POK 
E2Z*U2B*B5,0:NEXT 

30 830 GOTOB0 

40 B40 FORQ-0TO7:ZZ-8192+B"CD»3 
2*C*A»24*A»1 5 +Q : POKEZZ , 255-P 
EEKCZZ3 

5F B50 P0KE2Z-12B-B,255-PEEKCZZ 

+128*85 : NEXT : GOTOB0 
E8 860 UQ-1:PRINT"CH0ME3":F0RX- 

1T015: PRINT: NEXT : PRINT"C8LAC 

K3C0PY FROM CHARACTER" : GDSUB 

450 

20 870 Z1-B192+B*C0* , 32+C+A"24*A 
•15 

80 880 PR I NT " C HOME , BLACK 3 " : FORK 

-1T016:PRINT:NEXT 
44 890 PRINT"CUP3CDPY TO CHARAC 

TER " : GOSUB450 i Z2-8192+8»C0 

•32*C*A"24+A«13 
AC 900 U1-Z1*12B-B:U2-Z2*12B*8: 

FORQ-0TO7 
IB 910 P0KEZ2+Q, PEEKCZ1+Q3 
SE 320 P0KEU2+Q,PEEKCU1+Q):NEXT 

: PR I NT "C H0ME3 " : FORK- 1T015 : PR 

INT:NEXT:U)Q-0:X-0 
BB 930 PRINT"CSPC353":GOTO80 
24 940 POKE53280.0 
86 950 ZZ-B192*B-C0*32*C*A-24+A 

•1 ) : WW-ZZ* 128*8: FORO-0TO7 : T- 

PEEKCZ2+Q5 : S-PEEKCUU+Q3 
IB 360 FORR-7TO0STEP-1: IFT-2"R> 

-0THENT-T-2" R : PDKE5S296+Q*40 

+C7-R5,11:GOTO980 
31 970 POKES5296+D-40*7-R,l 
20 3B0 IFS-2-R>-0THENS-S-2-R:PD 

KE55516*D*40+7-R, 11 : GOTO1000 

El 990 POKE55616+D*40*7-R,1 
FB 1000 NEXT:NEXT:POKE532B0,11: 
GOTDB0 
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LISTING 



► 



AH 1010 PRINT"CH0nE3":FORK-lT01 
S : PR I NT : NEXT : PR 1 NT " C BLACK 3 DD 

YQU OWN ft CITIZEN 1DP-S60? 
ty/N)" 

H0 1020 GETAS: IFASO "Y"ANDAS<> " 

N"THEN1050 
FD 1030 IFAS-"Y"THEN0PEN6.4,6:P 

RINTDB , CHRSC0) : CLOSES 
E0 1040 PRINT"CUP,SPC363" 
0A 1050 0PEN4,4:P0KE53S65 1 PEEKt 

S3565JftND233 
AH 1060 ZZ-8192*B*CD" , 35-C3 : FORQ 

■0TQ7 : T-PEEKf ZZ+Q 3 
FE 1070 FQRR-7TD0STEP-1: IFT-5-R 

>-0THENT-T-a-R:PRINTH4, "CRUS 

0N3 CRUSOFF3"; : GOTO10S0 
C0 1080 PRINTtl4. "CS03"; 

57 1090 NEXT i PRINTH4, "CCG3 " : NEX 
T 

ftB 1100 ZZ-B192-8*CD*3B+C3+15B« 
S: FORQ-0TO7 : T-PEEK(ZZ*Q) 

SF 1110 FORR-7TQ0STEP-l:IFT-2-R 
>-0THENT-T-2'R: PRINTA4, "CRUS 
QN3 CRUS0FF3"; :SQTQ1130 

58 1128 PRINT14, "CS03"; 

2A 1130 NEXT : PRINT)t4 , "CCG3 " ; NEX 
T : PR I NT#4 , "C CTB3 " : CLOS^i : POK 
ES3S65 . PEEK ( 53265 3 DRIB 

FD 1140 X-0:GOTO80 

IF 1150 PRINT"CCLR,DOWN2,C43' , TA 
BU2)"SAUE "NS:PRINTTABC1S3" 
CCT163 " 

44 1160 INPUT"CD0UN5,C53GIUE Fl 
LENftME "iFIS: 1 FF IS-" "ANDDE-B 
THENPRINT"CUP33"; :6QTQ1160 

B2 1170 P0KE194,SA/556:P0KE193, 
5A-PEEKC1943-S55 

31 11B0 PDKE17S, FA/555: PDKE174, 
FA-PEEKC1753*256 

53 1190 L-LENCFIS) 

70 1500 FORI -1TOL : PQKE1053+ I , AS 
CCrilDStFIS, I,1)):NEXT 

4D 1510 POKE1B7,0:POKE1SB,4:POK 
E1B3 , L: P0KE1B6 , DE : SYS65954 

4B 1550 RETURN 

BC 1530 PRINT"CCLR,DOWN3":POKES 

3SB0,0;PaKE535Bl,0 
DB 1540 PRINT"CWHITE,SPC63THE fl 

ESSAGE CONSTRUCT I ON KIT" 
CA 1545 PRINT"CUHITE,SPC6,CT58. 

DOWN! " 

0B 1550 PRINT"CC8,SPC43PROGRAriH 
ED BY FRANK UAN TIGGELEN" 

51 12G0 PRINT"CC4,SPC153riARCH 1 
BBS" 

97 1570 PRINT-CCS.SPCBDFOR THE 

YOUR cannDOORE" 
B0 1575 PRINT"CYELLOW,SPC103SER 

IOUS USER'S GUIDECC5,DOUIN33" 

35 1580 PRINTTAB(33"tCA.S-20,CS 

3" 

E5 1590 PRINTTABOJ-CS-] M A I 

NCSPC43I1 E N U CS-3" 
El 1300 PR1NTTABCB3"CCQ,S»50,CUI 

3" 

E4 1310 PRINTTfiBC93"CS-3TEXT ED 
ITORC5PC63: CUIH I TE3TCC5 , S-3 " 



03 



E5 



1350 PRINTTABC93"CS-3CHARACT 
ER EDITOR : CUH I TE3CCC5 , S-3 " 



1330 PRINTTABC9J"CS-3ST0RAGE 
CSPC103: [WH1TE3SCCS, S-3 " 
63 1340 PRlNTTABC9J"CCD.S"20,Cli) 

3" 

E0 1350 PRINTTAB(93"CS-3EX1TCSP 

C131: CUHITE3XCC5.S-3" 
□3 1360 PRINTTAB(33"CCZ,S-20,CX 

DB 1370 GETAS: IFAS-""THEN1370 
7E . 1380 IFAS-"T"THEN1720 
BB 1390 IFAS-"C"THEN20 



21 
68 
81 
IF 

93 

C£ 

41 

45 

55 

ftA 

CC 

C4 
40 

64 

SB 

BB 

9B 

5A 
E5 
7C 
9F 
63 
41 
B5 
54 
B8 

64 

B8 

AC 

41 

7B 

33 

4C 
0G 
D7 

55 



Al 
B2 

4E 



1400 IFAS-"S"THEN1430 
1410 IFAS-"X"THENSYS65126 
1450 EOTD1370 

1430 PRINT"CC4,CLR3":PDKE532 

B0,lS:PaKE532Bl,lS 

1440 PR1NTTABC9)"CD0UN2,CA,S 

•20.CS3" 

1450 PR1NTTABC3)"ES-,SPC33S 

T D R A G ECSPC4.S-3" 

1460 PRINTTABCSJ-CCD.S-aO.CU 

3" 

1470 PRlNTTABC33"CS-3 STDRA 
GE TO "DSCDUV CSB3" 
1460 PRINTTABC93"CCQ,S«20,CU 
3" 

1490 PR 1 NTT AB ( 9 3 " C S- 3 CHANGE 
DEUICECSPC43 : CUIH I TE3DCC4 , SB 
3" 

1500 PRINTTABC93"CS-3SAUE CH 
ARACTERS : CUIHITE3CCC4 , SB3 " 

1510 PRINTTABC93 "CS-3SAUE TE 
XTCSPC83 : C WHI TE3TCC4 , SB3 " 
1550 PRINTTABC93 n CS-3SAUE flA 
CHINECODE : CUHITE3nCC4,SB3" 



PR I NTTABCS 3 ■ C S-3LDADC SP 

CUHITE3LCC4 , SB3 " 
PR I NTTAB C93 "CCQ, S-50 , CU 



1530 
C133 

1540 

3" 

1550 PRINTTABC33"CS~3EXITCSP 

C133: CUHITE3XCC4.S-3" 

1560 PRINTTABC9)"CCZ,S-S0 t CX 

3" 

1570 
15B0 
1590 
1600 
1610 
1620 
1630 
1640 
1650 



GETAS : 1 FAS- " "THEN1570 
IFAS-"D"THEN1650 
IFAS-"CTHEN1670 
IFAS-"n"THEN16B0 
1FAS-"T"THEN16S0 
IFAS-"L"THEN1700 
IFAS-"X H THENGDTD1S30 
GOTD1570 

I FDU-1THENDU-5: DE-B : PRI 
NT "C HOME , DOUN63 "TABC243DS( DU 
3:GOTO1570 

1660 DU-l:OE-l:PRINT"CHOnE,D 
OUIN63 "TABC24 3DSCDOJ i BQTO1570 

1670 NS- " CHARACTERS" :SA-B19 
5: FA-10S41 ; GDSUB1 150 : G0T0143 
0 

1BB0 NS- " HACHINE C.":SA-491 
55i FA-49S10 : G0SUB1 150 i G0T014 
30 

1690 NS-"CSPC73TEXT":SA-5048 
: FQ-PEEKC433B6J-256:G0SUBllS 
0;GOTQ1430 

1700 PRINT"CCLR,D0UIN23"TABC1 
8VL0AD":PRINTTABC1B>"CCT43- 

1710 INPUT "C DDUIN5 . CS3GIUE FI 
LENAP1E "iFIS: LQADF IS , DE , 1 : AS- 
'"*:GOTai430 

1750 PRINT"CCLR3":PDKE53280. 

1S:P0KE535B1,15 

1730 PRINTTABC33"CC4,OOWN3,C 

A,S»20,CS3" 

1740 PRINTTABCS)"CS-3 CC53T 
E X TCSPC43H E N UCC43 CS-3" 

1750 PRINTTABCS)"CCQ,S-50,CW 

3" 

1760 PRINTTABC93"CS-3£D1T TE 
XTCSPCB3 : C WHI TE3ECC4 . SB3 " 
1770 PRINTTABC93 "CS-3UIEUI TE 
XTC5PC83 : CUIHITE3UCC4 , SB3 " 
1780 PRINTTABC3VCS-3UIEW SC 
R0LLINGCSPC33 i CUH ITE3SCC4 , S 
B3" 

1730 PRINTTABCS3"CS-3REPLACE 
TEXTCSPCS3 : CUIHITE3RCC4.SB3 



S. LENGTH 



CU)HITE3nCC4,SB3" 



41 1B00 PPINTTAB(9)"CS-3SET flES 



El 



09 



5B 
SB 
32 
BE 
55 
76 
75 
61 
07 



7F 
DB 

46 

IB 

E8 



BB 



B9 

07 

Bl 



C7 



D4 



IS 



4C 



00 
FF 

D3 



75 



E2 



A5 



73 



BF 



1A 



FE 



A4 



2B 



7E 



BB 
FF 

A6 



1B10 

]" 

1850 
C133 
1830 
3" 
1840 
1850 
1B60 
1B7C 
1BB0 
1890 
1300 
1310 
192C 



PRINTTAB(93"CCu l S*20 1 CU 

PRINTTAB(S)"CS-3EXITCSP 

CWHITE3XCC4.S-3- 
PR1 NTTABC93 "CCZ . S"20 , CX 



GETAS' IFAS-""THEN1B40 
IFAS-"E"THEN1920 
IFAS- B U"THEN2110 
IFAS-"S"THEN2360 
IFftS-"(1"THEN5400 
IFAS- "R"THEN3100 
IFAS-"X"THEN1230 
GOTO1B40 

PR I NT " CCLR , C4 , D0UN23 ALT 
ER START ADDRESS ? CY/N3 DEF 
.-204B":nS-PEEKC493B6) 
1330 GETAS: IFAS-" "THEN1930 
1340 NA-S048: I FASO "Y"THEN19 
70 

1950 INPUT"LCLR,DDU)N,C43GIUE 

NEW START ADDRESS" ; NA 
I960 I FNA<504BORNA>nS"55BTHE 
N1S50 

1970 PRINT"CCLR l DOUN,C43CHAR 
ACTERS FREE: "nS»256-NA: PRINT 
"CD0WN3EXIT: CUHITE3CRETURN3 
CC43" 

I960 ZS-'^^-OiPRINT-CDOWNS, 
C53 INPUT TEXT:CC43 -CLEFT3 ■ ; 



GETAS: I FAS- " "THEN1990 
IFAS-CHRSC133THENGOT017 



1330 
2000 
50 

5010 IFAS-CHRSC203ANDZ>0THEN 
PRlNTAS"-CLEFT3"j :Z-Z-1:G0T0 
1330 

2050 IFAS>CHRSC31>ANDAS<CHRS 
C 64 3THENUA-ASCCAS3 : GOT 02070 

2030 IFAS>CHRS(633ANDAS<CHRS 
t36)THENUfl-ftSCCflS)-64:BOTO50 
70 

5040 IFAS>CHRSC1B13ANDAS<CHR 
SC524 3 THENUA-ASC C AS 3-158 : GOT 
05070 

5050 IFAS>CHRSC1S93ANDAS<CHR 
SC 1 32) THENUO-ASC( AS3-64 i GOTO 
5070 

2060 GOTD1S30 

5070 PRINTAS; :POKENA+Z,UA:Z- 
Z+l 

5080 IFZ+NA->MS-256THENPRINT 
:PRINT"CD0WN3nEP10RY FULL":B0 
TD5330 

5090 IFAS-CHRSC34 3THENPRINTC 

HRSCH03CHRSC343 ; 

2100 PRINT"-CLEFT3"i :GDT0199 

0 

5110 INPUT"CCLR,D0U)N2,C43GIU 

E START ADDRESS ? 2048CLEFT6 

3";TT:nS-PEEKC433BG3 

2120 IFTT<204BORTT>riS«55BTKE 

N5110 

2130 PRINT"CCLR,DDIDN2,C43PRE 
SS CUHITE3CRETURN3CC43 TO ST 
ART" 

5140 PRINT"PRESS CUIHITE3CF73 
CC43 TD PAUSE AND RESTART" 
5350 PRINT"PRESS CWHITE3CSPA 
CE3CC43 TQ EXIT" : AD-2048 
2160 GETAS: IFASOCHRSC 133THE 
N2160 

2170 PR INT "C DOWN] " : FORX-TTTD 
nS»256STEP24 

21B0 XS-STRSCX):XS-RIGHTSCXS 
,LENCXS)-1):PRINTTABC5-LENCX 

S ) ) " C BLACK 3 " XS " C SPC5 . C4 3 " ; 
2130 FDRY-0TO23 

2200 Q-PEEKCX+Y) : IFQ>31ANDQ< 
B4TKEN22S0 

5510 !FQ->0ftNDQ< 35THENQ-Q*54 




LISTING 



07 

71 

7ft 

62 

3D 
FB 

7F 
B3 
F4 
DE 

17 
FF 



BE 
30 
3fl 



A0 



27 
43 
Fl 

35 



6B 



EC 
83 

8D 

□2 

55 

IF 
4D 
03 



: GQTO22S0 

2220 I FQ->96ANDQ< 128THENQ-0+ 
64 : GOTQ2H50 

2230 IFQ->64ANDQ<96THENQ-Q*3 
2 : GOTO2250 

2240 PRINT"CC5,5U,C43";:E0I0 
B2G0 

2250 PRINTCHRSCD); : IFQ-34THE 
NPRINTCHRSC 20JCHRSC34) ; 
22B0 GETAS: IFAS<> ""THEN22B0 
2270 NEXT : PRINT : NEXT : GQT0233 



DC 



EE 

B3 
C3 



AE 



BC 



AD 



18 



07 



AC 



7E 



I FAS-"C F73 "THEN2310 
IFAS-" "THEN2330 
BDTO2270 

GETA5: IFASO"CF73"THENE 



GOTO2270 

PR I NT : PR I NT - C D0UN2 . SPC8 
C UH I TE 3 C SPACE X C4 3 T 

'THEN2340 



2280 
2290 
2300 
2310 
310 
2320 
2330 
3 PRESS 
Q EXIT" 

£340 GET AS: IFAS<> 
2350 GOTO1720 

23B0 PRINT"CC4,CLR3":PDKE532 
B0 , 15 : PDKE532B1 , 15: F0KEB3S , 0 
: PDKE800 , IBB : POKE901 , 0 
2370 P0KE49324,B:SYS49152:PR 
I NT "CHQME . DDU1N4 , C4 , SPC93 PRES 
S CUHITE3CSPACE3CC43 TO EXIT 

M 

2380 GET AS: I FAS-" "THENB10 
2390 GOTO2380 

2400 PRINT"CCLR3"; :MS-PEEK(4 
93BB) 

2410 PRINT"CH0ME,D0UN2,C43ME 
S5BGE LENGTH : CUIHITE3"2SE-CnS 
-B) "CLEFT , C43 CHARACTERS " 
2420 PRINT"CDDUN23PRESS CUHI 
TE3+CCM3 TO INCREASE AND CUH 
ITE3-CC43 TO DECREASE" 
2430 PR I NT "NUMBER DF CHARACT 
ERS" 

2440 PRINT"CDOUN3PRES5 CUHIT 
E3CSPACE3CC43 TO EXIT" 
2450 GETAS: 1FAS-°"THEN2450 
2450 IFAS-"+"ANDMS<32THENMS- 
MS+1 : P0KE493B5 , MS: GOTD2410 
2470 I FAS- " - " ANDf15> 9THENHS-n 
S-l ; P0KE4938B , HS i GOTO2410 
24B0 I FAS-" "THENGOTO1720 
2490 GOTO24S0 

2500 PRINT"CC4.CLR3":P0KE532 
64 . 0 : P0KE53277 , 0 : P0KE5327 1 , 0 
: R-0 : S-0 1 T-0 : TT-24 1 MM- 1 
2510 nD-224:F0RX-0T04:P0KE18 
40*X,CH+X:POKE1BB0+X,CH*X+12 
B:NEXT: Al-CH: A2-A1+4 
2520 PRINT"CH0ME3"; :FORX-lTO 
16 : PR I NT "CC4 , 50403 " ; 
2530 NEXT 

2540 PRINT"CRUSOFF,C43 FM: CU 

H I TE3 "MM "CC4, SPC33 POKES : CUHI 

TE3"fll"CC43TOCUHITE3"A2"CC4, 

SPC33EXIT: CUHITE3X" 

2550 P-PEEKC5S320J: IFCPAND13 

-0ANDS>0THENS-S-1 

2560 IFCPAND23-0ANDS<15THENS 

-S*l 

2570 1 F C PAND4 ) -0ANDT-0ANDR- 1 
THENT-28 : R-0 : TT-24 i PDKE53264 
,0:GOTD2G20 

2580 I F C PAND4 ) -0ONDT> 0THENT- 
T-l 

2590 I FCPAND85-0ANDT-28THENR 
-1 : TT-0 : P0KE53254 , 1 : T-0 : GOTO 
2620 

2600 I F C PAND83 -0ANDR-0THENT- 
T+l 

2610 1FCPANDB3-0ANDR-1ANDT<1 
0THENT-T+1 

2620 IFCPAND16J-0THENPOKE102 
4+S"40*T*28*R*R*l , MD 



2630 P0KE53248,TT+T"B:P0KE53 
249, 50+S*B: GETAS; I FAS- ""THEN 
25S0 

2540 IFAS-"C"THEN2520 
2G50 IFAS-"*"THENMD-224:riM-l 
:PRINT"CUP3"i :GOTD2540 
2680 IFAS-"-"THENMD-79:MM-0: 
PRINT "CUP3"; .GOTO2540 
2670 IFAS-"X"THENRESTORE: GOT 

020 

2680 1 FAS-" "THEN2710 
2690 IFAS-"CF73''THENGOTD3020 
2700 GOTO25S0 
2710 POKE532B0.0 
2720 FORU)-0TO4:FORY-0TO7:FOR 
X-7TO0STEP-1 : 2-PEEKC 1024+U-8 
+C7-X3+V*40J 

2730 22-8192+CH*B+U*B+Yi IFZ- 
224THENPDKE22 , PEEK C 22 )ORC 2 " X 
J : BOTOB750 

2740 P0KE22, PEEKC225ANDC255- 
2"X) 

2750 NEXT: NEXT; NEXT 
2760 FORU-0TO4:FQRY-0TO7:FOR 
X-7TO0STEP-1 ; Z-PEEKC 1344+U-B 
♦C7-X3+Y»40) 

2770 ZZ-8192+CH-B+U*8+Y+12B«» 
8: IF2-224THENP0KEZ2, PEEKC2Z) 
ORt2"XD:GOTO2790 
27B0 P0KEZZ,PEEKCZZ)AN0C2SS- 
2'X) 

2790 NEXT : NEXT : NEXT : P0KE5328 
0,11:GOTD2S50 

2B00 PRINT"CH0nE3":F0RK-lT01 
S : PR I NT : NEXT : PR I NT " C BL0CK3S 
CHARS FROn":UD-l:GOSUB4S0:WD 
-0 

2B10 CH-QQ:GDTO2500 
2820 PRINT"CH0ME3":F0RK-1TD1 
5: PRINT: NEXT :PRINT"CBLACK3MI 
RROR UHICH CHARACTER" : UQ-1 
2830 GaSUB450:POKE53280,0 
2840 2-QQ*B*8192:UQ-0:POKES3 
264 . 0 : P0KES3248 , 24+X-B : P0KE5 
324S,50+Y*B 
AC 2B50 PRINT "EHOME , BLACK 3 " I FOR 
K-1T016: PRINT: NEXT: PRINT"C UP 
,SPC243" 

32 2860 FDRQ-0TO7:POKE9S0*Q.PEE 
KCZ+Q) i POKE360-Q, PEEKCZ+12B* 

B+Q3 : NEXT 
97 2870 FDRK-0TO7:QQ-PEEKC9S0+K 

):ZZ-Z+K:FORL-0TO7 
29 2880 IFOQ-CS"C7-L3 3->0THENPO 

KEZ2 1 PEEKCZ2)0RC2"L):QQ-QQ-C 

2-C7-L)3:GOTO2900 
56 2B30 P0KEZZ.PEEKCZZ)ANDC255- 

2'LJ 

95 2900 NEXT: NEXT 

B9 2910 FORK-0TO7:QQ-PEEKC960--K 
3 i ZZ-Z*12B*B+K : FORL-0TO7 

75 2920 IFDO-C2"C7-LD3->0THENPO 
KEZZ,PEEKCZZ50RC2-L):0Q-aa-C 
2-C7-LJ3:GOTO2940 

6E 2930 P0KEZ2,PEEKCZZ)ANDC25S- 

S'L) 

67 2940 NEXT ; NEXT : POKE53280 ,11: 

6OTOB0 
4E 2950 POKE53280.0 
IE 2960 PRINT"CH0ME3":FDRK-1T01 

S: PRINT: NEXT :PRINT"CBLftCK3ni 

RROR UHICH CHARACTER" : UQ-1 
FF 2970 GOSUB450:Z-QO-B*B192:UQ 

-0 : P0KE53264 , 0 : P0KE5324B , 24* 

X-B : P0KE53249 , 50+VB 
22 29B0 PRINT"CH0ME,BLACK3 , ':F0R 

K-1T016: PRINT: NEXT: PR INT "CUP 

, SPC243" 

14 2990 FORQ-0TO7:POKE9S0*Q,PEE 
KCZ*a):POKE960*Q,PEEKC2*Q+12 

B"B) : NEXT 
25 3000 FORQ-7TO0STEP-1:POKEZ+O 
, PEEKC967-Q) : P0KE2*Q*12B*B, P 



3E 



SB 

51 

7C 

70 

2D 
09 
AS 
25 
47 



Dl 



39 

C2 
9A 



D4 



91 



70 



E0 



17 
02 



00 
Dl 



55 
24 

63 
C0 
0A 



67 
BC 



28 

D3 
B5 

E4 
77 
IB 
C3 

2A 
9C 
0A 
A6 

46 

50 
EA 

DE 
BC 

2B 

D3 
B5 

EH 
77 
IB 
C3 

2A 
9C 
0A 
A6 

46 



END 
3130 
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3140 



EEKC957-Q3 :NEXT 

3010 PDKE532B0,ll:GaTaB0 
3020 PRINT"CH0ME3"; : FDRX-1T0 

16:PRINT"CC4,SO403"; 

3030 NEXT 

3040 POKE53280.0 

3050 FORU-0TO4;FORY-0TO7:QO- 

B192+CH*B*U»S+Y: Z-PEEKCDQ) : 2 
Z-PEEKC DO* 12B»B) 
3060 FORX-0TD7 

3070 IFZ-2 _ C7-X3->0THENZ-Z-2 
' C7-X3 : POKE1024*U"8+Y»40*X , 2 
24 

30B0 IFZZ-2"C7-X3->0THENZ2-Z 
2-2" C7-X3 : POKE1344+U-B+Y-H0+ 
X.224 

3090 NEXT : NEXT : NEXT : PRINT : PO 

KES3280 ,11: GOTO2550 

3100 PRINT"CCLR,D0UN2,C43"TA 

BC14)"REPLftCE TEXT" : PRINTTftB 

C143"CCT123" 

3110 INPUT"CD0UN2,C43GIUE TE 
XT START ADDRESS" ;TS 
3120 INPUT"CD0UN3GIUE TEXT 
ADDRESS" ; TE 

INPUT"CDQUN3GIUE NEU S 
ADDRESS" ;NS 

I FTE<TSTHENPRINT"CDOUN . 

UHITE3END SHOULD BE HIGHER T 

HAN START " : GOTO3240 

3150 IFTS<204BORTS>B191THENG 

OTO3230 

3160 I FTE<2048ORTE>B191THENG 
OTO3230 

3170 IFNS<204BORNS>8191THENG 
OTO3230 

3180 IFNS*TE-TS>B191THENPRIN 
T"CD0UN,UHITE3NEU START ADDR 
ESS TOO H1GH":GOSUB3240:GOTO 
3100 

31S0 IFTE-TS>2000THENPRINT"C 
DOUN , UHI TE3TEXT TOO LDNG CLE 
NGTH <- 2000)":GOTO3240 
3200 PR I NT "C DDUN , BLACK3 PLEAS 
E UAIT":POKE53280,0 
3210 K-TE-TS:FORL-0TOK:POKE1 
0240+L , PEEKCTS+L 3 : NEXT t FORL- 
BTOK 

3220 PQKENS*L,PEEKC10240+L3: 
NEXT : POKE532B0 .lit GOTO 1720 
3070 IFZ-2-C7-X3->0THENZ-Z-2 
" C7-X) : POKE1024+U*8+Y»40+X, 2 
24 

30B0 IF22-2-C7-XW0THEN22-Z 
2-2- C7-X> i P0KE1344+U-B-Y-4B* 
X.224 

3090 NEXT : NEXT : NEXT: PRINT : PO 

KE532B0 , 11 i GOTO2550 

3100 PRINT"CCLR,D0UN2,C43"TA 

BC14)"REPLACE TEXT" : PR INTTAB 

C143-CCT123" 

3110 INPUT"CD0UN2,C43GIUE TE 
XT START ADDRESS" ; TS 
3120 INPUT"CD0UN3GIUE TEXT 
END ADDRESS ";TE 

INPUT"CD0UN3GIUE NEU S 
ADDRESS " ; NS 

I FTE< TSTHENPR I NT "C DOUN . 
UHITE3END SHOULD BE HIGHER T 
HAN START" : GOTO3240 
3150 IFTS<204B0RTS>B191THENG 

OTO3230 

3160 IFTE<204BORTE>8191THENG 
OTO3230 

3170 IFNS<204BORNS>B191THENG 
OTO3230 

31B0 IFNS+TE-TS>8191THENPRIN 
T"CD0UN,UHITE3NEU START ADDR 

ESS TOO HIGH" : GDSUB3240: GOTO 
3100 

3190 IFTE-TS>2000THENPRINT"C 
DOUN , UH I TE3 TEXT TOO LDNG CLE 
NGTH <- 2000)":GOTO3240 
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YOUR COMMODORE SERIOUS USERS GUIDE 
40 



LISTING 



► 



50 3200 PRINT "E DOWN , BLACK 3 PLEAS 

E UAIT":PDKE53280,0 
EA 3210 K-TE-TS: FORL-0TOK: POKE1 

0540-*L . PEEKCTS+L J : NEXT : FDRL" 

0TOK 

DE 3220 POKENS-L,PEEKC10240*L>: 
NEXT i POKE53280 ,11: GOTO1720 

06 3830 PR1NT"CUHITE,D0UN3TEXT 
MUST BE BETWEEN E04B AND 819 

E I" 

B5 3240 FORL-1TO2000:NEXT:GOTO3 
100 



PROGRAM: M/C HAKER 



54 10 BL-33 :LN-S0 :SA-4915 

a 

C0 B0 FDR L-0 TO BL:CX-0:FOR D- 

0 TO 15 : READ A:CX-CX+A 
B7 30 POKE53580, A: POKE SA+L»1S+ 

D, A: NEXT D 
73 40 READ A: IF AXCX THENPRINT 

"ERROR IN LINE-;LN+CL»10J:ST 

OP 

C4 45 NEXT L:SYS4951S 
39 50 DATA 130,169,31,141,13,53 
0,141,13,531,173,13,520,173, 
13,551,173,5055 
13 60 DATA 17,509,41,157,141,17 
.508, 169, 19B, 141,50,3, 169, 19 
5,141,51,1913 
B4 70 DATA 3 , 169 , 1 , 141 , 5B , 50B , 1 
69, 6B , 141 , IB , 50B , SB, 96, 169,5 
00,141,1944 
05 60 DATA 55,508,163,511,141,5 
0,3. 169,195, 141.51,3,169.551 
,141,18,1879 
B3 90 DATA 509,169,1,141,55,509 
, 78 „ 49 , 534 , 169 , 199 , 141 , 55 , 50 

H, 169,198,5517 

6E 100 DATA 141,50,3,169,195,14 

I, 51,3,169,66.141.18,508, 169 
,1, 141. 1603 

F6 110 DATA 55, 50B, 534. 534, 534, 
174. 131,3,535,554, 1,540,6, 14 
5,131.3,5555 
0E ISO DATA 76,49.534,165,0,145 
,131,3,174,135,3,505,554,191 
,509.3,1934 
C4 130 DATA 76,140,195,145,55,5 
0B. 145,135,3,76,49,534, 165.1 
99. 145,135,2051 
Bl 140 DATA 3,160,0,185,1,4,153 
.0,4, 195,41,4,153,40,4,500, 1 
137 

60 150 DATA 192.40,540,3,76,147 
,192,174, 133,3, 189 ,0,B, 141,3 
9,4, 15B1 

DB 160 DATA 105,157.141,79,4,23 

4 , 234 , 534 , 534 , 534 , 535 , 145, 13 

3,3,169,199.5504 
FE 170 DATA 141.74.195,76.519,1 

95, 160,5,136,508,553, 169,51, 
141,54,208,2216 
17 180 DATA 76,45,192,169,25,14 

1,24,509,76,73,195,174,133,3 
,554,0,1755 
B7 190 DATA 240,3,76,49,534,174 

, 175 , 195 , 235 , 554 , 15 , 508 ,5,16 

5,8,145,5130 
94 500 DATA 175,195.76,49,534,1 

50, 169,31,141, 13,550, 141, 13, 

551, 173,13, 1978 
09 510 DATA 550,173,13,551,173, 

17,508,41, 157,141,17,508, 169 
,34,141,50,1953 
E0 520 DATA 3,163,193,141,51,3, 

169,1, 141, 5S.20B, 169,50,141, 

18,208,1661 
7B 230 DATA 88.96,169,21,141,24 

,208,169,65,141,20.3,169,193 

,141.21,1666 



26 540 DATA 3,169,186,141,18,50 
B, 169 , 1 , 141 , 55 , 509 , 76 , 49 , 534 
, 534 , 534 , B096 
BB 550 DATA 534,534,534,534,534 
, 234 . 534 , 169 , 55 , 141 , 54 , S0B , 5 
38, 39,508, 169, SBS9 
9C 560 DATA 34,141,50.3,169,193 
,141,51,3.169,50,141,18,208, 
169, 1, 14B1 
52 570 DATA 141.55,508,76,49,53 
4,0,0, 169,0.133,550,169.195, 
133,551,5030 
90 590 DATA 169,0,133,174,133,1 
93. 169, 195,133, 175, 133, 194,1 
69,104,133,555,5455 
F5 590 DATA 169,193,133,553,160 
,0,177, 550 . 145 , 174 , 530 , 550 , 5 
0B, 5,530, 551, SB2S 
8A 300 DATA 530,174,508.5,530,1 
75 , 165 , 550 . 197 , 252 , 508 , 534 , 1 
65,551. 197,553,3191 
49 310 DATA 208,558,169,3,133.1 
B7 . 169, 194, 133, 196 , 169, 3, 133 
,183, 169,0,2269 
AB 320 DATA 133.185,160,0,185,5 
1 1 , 193 , 240 , 6 , 32 , 210 , 255 , 200 , 
208,245,32.2495 
20 330 DATA 207,255,240,251.201 
, 49 , 540 , 4 , 501 , 56 , 48 , 530 ,41,1 
S, 133,186,5357 
AB 340 DATA 76,234,245,147,17,1 
7 , 73 , 78 , B0 , 85 , 84 , 35 , 6B , 69 . 86 
,73,1464 

30 350 DATA 67.69.35.78,85,77,6 
6 , 69 , B5 . 13 . 17 , 67 . 65 , B3 , 61 , 49 
,980 

78 360 DATA 35,47,35,68,73,83,7 
5 , 61 , 35 , 55 , 35 , 73 , 85 , 32 , 57 , 58 
,899 

90 370 DATA 45,32,0,77,47,67,0, 
0,0,0,0,0,0.0,0,0.268 

AD 380 DATA 0,0,0,555,555,555,2 
55, 0,0, 0,0, 0,0, 0,0,0, 1020 



PROGRAM: CHARACTER flAKEP 



E9 



C0 



B7 



73 



C5 
75 



5B 



BA 



SD 



B5 



61 



28 



34 



10 BL-139 :LN-S0 :SA-3586 
4 

50 FOR L-0 TO BL:CX-0:FDR D- 
0 10 15: READ A:CX-CX+A 
30 POKE53S80,A:POKE SA*L»16* 
D , A: NEXT D 

40 READ A: IF AXCX THENPRINT 
"ERROR IN LINE";LN+CL"103:ST 
OP 

45 NEXT L:5YS38950 

50 DATA 56, 109,68, 146, IBS, 17 

0 , 162 , 165 , 154 , 554 , 198 , 198 , 55 

4,254,198,105.5640 

60 DATA 555.554,198,198,198, 

555 , 555 . 198 , 48 , 154 , 1 10 , 19B , 1 

98,195.195,192,3056 

70 DATA 248,555,15,54.54,54, 

54 . 105 , 60 , 126, 102 , 195 , 195 , 25 

4,115.96.1934 

B0 DATA 555,554,198,198,192, 
195,96,96,58.65. 119, 105,96, 1 

95.195.195,2460 

90 DATA 132,192.195,195,96,9 

6 , 96 , 154 , 54 , 54 , 0 , 54 , 54 , 24 , 24 
,54, 1348 

100 DATA 12,12,0,15,15,15,15 
,G, 195, 195, 195, 195 , 192 , 204 , 2 
20.24B, 1710 

110 DATA 192,192,96,96,96,49 

, 4B , 48 , 1 30 . 198 , 254 , 254 , 514 , 1 

9B, 199, 198, 2450 

120 DATA 220,254,230,198,199 

. 19B, 105, 105,60, 156, 105, 105, 

198, 198, 198, 1 SB, 5684 

130 DATA 540,555,506,198,198 

, 105,110, 154,60.155, 105, 105. 

19B. 138, 199, 19B, 5615 



Dl 



44 



C9 



16 



BG 



140 DATA 548,252,12,198.199, 
198,204,552,56, 154.538, 198, 1 
95,224,150,58,2742 
150 DATA 96,96,240,150,96,96 
,98, 192, 198, 198,198, 198. 198, 
19B, 198,198,5616 
160 DATA 198,198,19B,19B,19B 
, 1OB.10B, 10B, 12, 14,6, 105, 105 
, 198, 198, 198,5144 
55 170 DATA 19B , 19B . 19B , 198 , 198 
, 108, 108.56. 19B, 199, 198,198, 
19B, 105, 156,30,2510 
180 DATA 554,554,6,6,14,15,5 
B, SB, 60, 60. 4B , 48, 48, 4B, 48, 48 
,1038 

190 DATA 150, 555,53B, 138,132 
,192,96, 104,80,60, 12, 15, 15, 1 
2, 12, 12, 15B4 
83 200 DATA 16,16,56,56,124,154 
. 554 , 254 , 16, 16, IS, 48, 4B, 1 12, 
112,554,1555 
3D 510 DATA 0,0,0,0,0,0,0,0,60, 

60 , 60 , 60 , 60 , 60 , 50 , 54 , 444 
CF 550 DATA 238,238.34,102,204, 
0 , 0 , 0 , 54 , 54 . 54 , 54 , 54 , 236 , 252 
,126, 1700 
54 230 DATA 60,124,254,222,216, 
248 , 120 . 154 , 98 , 146 . 150 , 102 , 1 
5, 15,54,54,1936 
73 540 DATA 48,120,75,516,508,1 
44 , 540 . 35 , 56 , 56 , 8 , 54 , 48 , 0 , 0 , 
0,1336 

250 DATA 58,55,96,96,195,195 
, 192,195,115,56, 15,15,6.6,6, 
6, 1560 

FB 260 DATA 0,0,0,0,0,16,84.56. 
0,0,0,0,24,24,54. 155,354 
270 DATA 0,0,0,0.0.0,0.0,0,0 



BE 



A6 



6E 
B7 



SF 



7B 



0D 



,0,0,0 



254,554 



F8 280 DATA 0,0.0,0,0.0,0,0,2,2 

,6,6,12,12,24,24,8b 
CS 290 DATA 124,186,198,198,198 

. 19B, 130,0,0,2,6,6,6.6,2,0, 1 

5G0 

300 DATA 154.58,6.6,6,6.58,1 
24 . 1 24 . 58 . 6 . 6 . 6 . 6 , 58 . 124 . 776 



310 DATA 0,130,199,199.198,1 
98 , 196 , 124 , 124 , 184 , 192 , 192 , 1 
95,195,184,154,5616 
90 350 DATA 124,184,195,195,195 
, 192 , 184 , 154 . 154 , 58 , 6 . 6 , 6 , 6 , 
2,0,1595 
0C 330 DATA 154, 186, 19B, 199, 198 
, 198 , 186 , 124 , 124 , 1B6 , 198 , 198 
,198, 198, 186, 154, 5B54 
C0 340 DATA 0,0,0,56.56,58,0,0, 

0.0,0,56,56,56,0,0,336 
AC 350 DATA 0 , 0, 0 , 0 , 5 , 15 , 4B , 195 
,0,0,0.0,0, 124, 124,0,502 
360 DATA 0,0,0.0,158,96,54,6 
, 124 , 254 , 199 , 1 9B , 105 , 6 , 15 , 58 
,1176 

F0 370 DATA 0,0,0,0,1,5,63,54,0 

,0,0. 555 , 37 , 69 . 550 , S , 746 
C4 380 DATA 0,0,0,555,5,4,2,555 
,0,0.0,224,24.132.130,125,11 
56 

74 390 DATA 0,0,0,0,0,0,0,224,2 

24,54,4,2,2,1,1,1,483 
C0 400 DATA 0,0,0,0,0,0,0,0,0,0 
,0,0,0,1,1,1,3 

410 DATA 1S,4B,64, 128, 128.0, 
0,0, 15,63, 115,96, 195,195,195 
,192,1437 

420 DATA 128.158.156.154,150 
, 112,98,0,255, 127. 191 ,95, 175 
.87. 171,85,2050 
DF 430 DATA 255,254,555,555,548 
, 555 , 196 , 144 , 137 , 82 , 34 , 34 , 33 
,0,0,0,2149 
1A 440 DATA 146,85,82,82,142,0, 
0,0,224, 144,225. 161.145.3,3, 




LISTING 



3A 

E8 

SB 

B0 

B3 

9A 

3D 

35 

49 

03 

DO 

D4 

D3 

EE 

B6 

19 

CB 
D4 

DS 

CB 



F0 



7D 



74 



ID 



0E 



FE 



3,1445 

450 DATA 333.349.145,147,18, 
6,6,6,133,227,35,51, 13,37,37 

.36,1430 

460 DATA 31,25.25,153,169.15 

9,169, 153. 143,140,140,304.31 

3,313,313,85,2359 

470 DATA 49,130,73,304,133,1 

34 , 134 , 1 34 , 340 , 340 , 144 , 153 , 1 

35, 141, 141, 141,3314 

4B0 DATA 49,130.73,204,133,1 

34 , 134 , 134 , 341 , 34B, 140 , 140 , 1 

33, 140, 140,34B,340B 

490 DATA 353.133,138,128,138 
, 128 , 136, 24B , 348 , 353 , 353 , 133 
, 164 , 148 , 1B0 , 132 , 27BB 
500 DATA 7,34,32,70,75,140,1 
30 , 130 , 224 , 24 , 4 , 50 , 98 , 97 , 1 , B 
5,1173 

510 DATA 1,3,6,15,21,32,106, 
138 . 355 , 355 , 170, 255 . B5 . 0, 170 
,0,1503 

520 DATA 128,192.160,240,88, 
4 , 170 , 1 , 6 , 3 , 35 , 63 , 8B , 67 , 13 , 1 
3,1258 

530 DATA 0,0, 113, 24B, 135,200 
,334,96.0,0,0,1,1,193.192,64 
,1467 

540 DATA 31. 106, 177, 49, 3S5, 3 
6,4,4,0, 193 , 160 , 144 , 340 , 144 , 
0,0, 1542 

550 DATA 31,17,17,245,128,18 
1 , 12B , 345 ,0,0,0, 324 , 32 , 150 , 3 
2 , 224 , 1664 

560 DATA 63.54,88,156,150,14 
4, 140, 138,348,4,52.114,210,1 
8,98,2,1579 

570 DATA 1,1,0,0,0,0,137,62, 
0, 193, 341, 39, 96. 3SS. 138, 65,1 
207 

580 DATA 0,0,13B,144,340,308 
,193,134,7,4,9, 13.53, 127,331 
,199,1688 

590 DATA 138,0,64,138,193,22 
5,93,48,30,33,73, 112,20,318, 
66.130,1566 

500 DATA 3,2,4,133,73,49.3.6 
,0, 195.39.69, 138,140,76,76, 1 
003 

610 DATA 0.0.0,0,0,0,0,0,0.0 
,0.13,38,60, 10B, 304, 412 

530 DATA 0,0,0,48,24,39,33,1 
B , 0 , 0 , 0 , 103 , 194 , 194 . 66 , B6 , 76 

S 

630 DATA 0.0.0,15,37,33,33,6 
4 . 255 . 131 , 131 , 131 , 255 . 254 , 25 
3,353,1834 

B40 DATA 355.255.35S.255.355 
, 63 , 333 , 333 , 355 , 355 , 193 . 138 . 
13B, 143, 146, 146,3177 

G50 DATA 255,355,0,0.0,355,3 

35,335,355,355,3,1.1,341.73, 

73,3117 

650 DATA 355,113,33,33,33,33 
, 33 , 164 , 255 , 0 , 105 , 155 , 10 , 3 , 3 
.130, 1353 

670 DATA 355.0,307,100,36,35 
, 36 , 36 , 355 . 0 , 333 . 318 . B3 . 3 , 3 , 
2,1490 

BB0 DATA 255,7.155,193,65,0, 

0,0.131,6B,SB.6B,6B,6B,5B,6B 

,1333 

690 DATA 1B3, 163,170,186,146 
,68,108,56,102, 103,5,6,13,12 
,12,24,1334 

700 DATA 102.102,102,103,108 

,13, 124, 120, 193, 153. 19B. 198. 

198.204,253, 120.2335 

710 DATA 103.103.19B. 198,198 
, 19B, 354 . 352. 193 , 193 . 193 , 193 
,199,198,254,134,3044 

730 DATA 130.34B,95,4B.4B,4B 
, 48 , 48 , 192 . 206 , 333 , 198 , 198 , 3 



06.353, 130.3398 
S3 730 DATA 136,118,103.103,103 
,103,103,102.24,34,48,48.48, 

48,113,98,1304 
ES 740 DATA 6, 6 . 6 , 19B , 19B , 102, 1 

35 , 60 , 240 , 348 , 120 , 108 , 108 , 10 

9,110,102,1845 
13 750 DATA 48 . 4B , 4B , 96 , 96 , 98.3 

54,353.102.6,6.6,12,13,13.34 
,1130 

BE 760 DATA 103,6,6,6,12,13,39, 
34 . 198 . 19B , 19B , 198 , 198 , 103 . 1 
34 , SB , 146B 
AF 770 DATA 130, 96, 48 , 4B , 4B , 4B , 
48 , 4B , 198 , 198 , 314 , 223 , 332 , 23 

0,354, 114,3146 
EC 7B0 DATA 130,108,108,103,103 

, 138 . 19B | 19B, 13, 14, B, 6, 198 , 3 

38,134,56,1788 
D9 790 DATA 192,193,193,198,198 

, 11© , 134 , 56 , 198 . 19B , 19B . 198 , 

199,330,126,53,3670 
EA 800 DATA 108, 108, 55, S6 , 56 , 56 

, 16, 16.198,198, 138,198,314,2 

33,346,103,3048 
70 810 DATA 108,108.158,198,198 

,198,198,198,6,6.6.6,12,13,1 

2.34,1488 
BF 830 DATA 113,96,334,153,192, 

193 , 354 , 354 , 4B , 48 , 46 , 4B . 4B , 4 

8,60,60, 1934 
CI 830 DATA 248,340,96,96,96,13 

3,354,204, 13,13,13,13,13,13, 

60,60, 1548 
DO 840 DATA 56,56.56,56,56,56.5 

6,56,354, 112, 113,48,48.48, 16 
,16,1102 

AF BS0 DATA 0,0,0,0,0,0.0,0,24, 

34 , 34 , 24 . 24 , 0 , 24 , 24 , 168 
16 860 DATA 0.0,0,0,0,0.0.0,239 
,253, 135,205,316,216,216,316 
,1686 

C3 B70 DATA 60,63,54,54,245,238 

.353,348,48,48.36,64,304.210 

,146,140,3170 
3D BB0 DATA 224,163,183,148,156 

,156,223,114,0,0,0,0,0,0,0,0 

.1364 

D9 890 DATA 133,192,193,193.35, 
96 , 56 , 29 , 6 . 6 , S , 6 , 12 , 12 , 56 , 11 
2, 1260 

FC 900 DATA 254,56,84,16,0,0,0, 

0 , 136 , 34 , 24 . 34 . 0 , 0 , 0 , 0 , 60B 
4B 910 DATA 0 , 0 , 0 , 56, 56, B, 34 , 4B 

,254,0,0,0,0,0,0,0,446 
89 930 DATA 0,0,0.0,0,56,56,56, 

48 . 48 . 96 , 96 , 193 , 193 , 138 , 138 , 

1096 

E9 930 DATA 130,198,199,139,158 
,198. 186.124,2,6,5,6,6,5,2,0 
,1464 

84 940 DATA 184.193,192,193,193 

. 192 , 184 , 134 , 58 , 6 , 6 , 5 , 6 , 6 , 58 

, 124,1733 
IF 950 DATA 58,6,6,6.5,6,2,0,58 

, 6. 6. G.B, 6. SB, 124,360 
97 950 DATA 186,198.198,198,198 

, 198 . 186 ,134, 2,5, 6, 6,6,6,3,0 

,1520 

B3 370 DATA 186,138,138,198,198 

, 158, 186, 124 , SB, 6, 6, 6,6, 6, 58 

,134,1756 
83 3B0 DATA 0,0.55,55,56,0,0.0, 

0 , 0 , SB , 56 , 55 , B , 24 , 4B , 416 
EB 990 DATA 192,48,12,3,0.0,0.0 

,0, 134, 134.0.0,0,0,0.503 
0E 1000 DATA 6,34,96,138,0.0,0. 

0 , 24 , 24 , 24 , 34 , 24 , 0 , 24 , 24 , 422 

36 1010 DATA 134,135.138,225,35 
5 , 30 , 0 , 0 , 244 ,10, 249 .141,119, 
219.315, 112,3317 

3E 1030 DATA 3.36,3,3,355,355,0 



,0,4,136,15,24,347,337,13,7, 
1385 

5F 1030 DATA 38,3,139,199,126,1 
BB. 138,0,1,1, 1,0.0.0,0,0,803 

fiE 1040 DATA 0,0,0.138.138,64,4 
8.15,1,1,1,2,2,4,34,334,643 

CF 1050 DATA 0,0,0,0.0,0.0,0,13 
3,192, 192. 192,96, 113,63, 15,1 
054 

41 1050 DATA 0,33,80,40,84.43,1 

3B, 138,170,84, 168,80, 160,64, 

128,0.1388 
4B 1070 DATA 65,4,16.1,4.0,1,0, 

0,0,0,0,0.0,0,0,91 
DE 10B0 DATA 0,0,0,0,0,0,0.0.3, 

3.3,1,1.1.0,0,13 
FD 1090 DATA 6,6,6,10,11,145,24 

1 . 334 ,26,26,36, IB, S0, 34, 336 , 

199,1354 

8F 1100 DATA 169,169,301,301,20 

1 , 301 , 73 , 95 . 85 , 85 , 101 , 100, 10 

0,100.35,174,2091 
47 1110 DATA 134,134,134,133,30 

4,73,130,49, 141,141,141,136, 

153 , 144 , 340 , 340 , 3314 
FG 1120 DATA 134,134,134,133,30 

4 , 73 , 130 , 49, 176 , 176, 153 , 153 , 

153,153,140.207.3386 
36 1130 DATA 348, 136, 13B. 138, 13 

8, 138, 133 , 353 , 252 , 132 , 180 , 13 

2 , 253 , 338 , 252 , 248 . 3956 
BF 1140 DATA 153.176,173,67,64, 

32,34,7,145.9.57,194,3,4,34, 

224 , 1354 
33 11S0 DATA 138,106,33,31.15,6 
, 3 , 1 , 0 , 170 , 0 , B5 , 25S , 170 . 355 , 

355,1503 
38 1160 DATA 1,170,4,88,240,160 
,192,138,34,8,16,34,34,0,34, 

24,1127 

98 1170 DATA SS , 130 , 12 , 0 , 1 . 3, 1 , 
3 , 334 , 340 , 30B , 308 , 54 , 32 , 16 , 4 
B.1254 

BA 11B0 DATA 4,4,4.4,4,4,4,31,0 
, 0 , 0 , 0 , 96 , 253 , 63 , 20 , 493 

EC 1190 DATA 17,17,17,17,21,85, 
255 . 355 , 0 , 0 , 0 , 0 , 0 . 35 , 192 , 240 
,1313 

07 1300 DATA 130,139,135.71,68, 

36, 16, 15, 130,3,34,196,68,73, 

16,334,1343 
69 1310 DATA 83,140,139,143,139 

, 138 , 55 , 62 , 34 . 147 , 253 , 255 , 35 

3,139,0,0,1970 
16 1330 DATA 326,33,33,49,35,1, 

130, 134,333. Ill, 13,33,56,113 

,97,49,1330 
83 1230 DATA 185,156,205,135,19 

3,133,138,334,3,3,3,1.129.19 

3.0,0, 1B07 
DF 1340 DATA 4,1,0,8,145,343,17 
,63, S3, 4, 133. 140,34,340,0,0, 

1073 

1A 1250 DATA 1,3,6,12.31,48,35, 
340 , 140 .13,13,12, 353 ,13,13,3 
0,919 

BB 1360 DATA 33,32,32,33,65,65, 

65,327,133,133. 133, 133, 8, B,B 

, 156, 1358 
52 1270 DATA 64,64,128,128,143, 

198 , 103 , 60 , 353 , 354 , 355 . 355 , 2 

55,355,255,355,3934 
E7 1380 DATA 333,55,355,137,127 

, 137 , 137 , 255 , 143 , 138 , 355 , 355 
, 348 , 340 , 324 , 355 , 3044 
FF 1330 DATA 255,0,355,355,0,0, 

0,355,341.1,255,255.31,15,7, 

255 . 2080 

55 1300 DATA 352.164.33,33,33,3 
3,113,349,98,18.10,10,10,10, 
139, 113,1315 
18 1310 DATA 37,47,37,36,36,36, 
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100,306,3,5.2,2,5,2,2,7,556 
FD 1320 DATA 0,0.0,0,117,39,37, 
37 , 6B , 66 , 68 . 68 , 68 , 6B , 68 , 56 , 7 
62 

□7 1330 DATA 32.0,0,0.0,0,0,0,1 
69,0,133,250. 163, 144, 133,251 
,1281 

7B 1340 DATA 169,0,133,174,133, 

133,163,32,133,175,133,194,1 

69,8,133,252,2200 
98 1350 DATA 169 , 152 , 133 , 2S3 , 16 

0 , 0 , 177 , 250 , 145 . 174 , 230 , 250 . 

208, 2.230, 251, 27B4 
A2 1360 DATA 230,174,206,2,230, 

175 , IBS , 250 , 197 . 252 , 20B . 234 , 

165,251,197,253.3191 
43 1370 DATA 20B , 228, 169 , 163, 13 

3, 187, 169, 152.133,188, 169,5, 

133, 183, 169,0,2389 
F5 1380 DATA 133,185.160,0,185. 

115 . 152, 240 , 6, 32, 210 . 255 , 200 

,208,245,32,2358 
6B 1390 DATA 207,255,240,251,20 

1 , 49 , 240 , 4 . 201 , SB , 48 , 230 , 41 , 

15,133,186,2357 
80 1400 DATA 76, 234 , 24S, 147 , 17 , 

17 , 73 , 78 , 80. B5 , B4 , 32 , 68 , 59 , B 

6,73, 1464 
28 1410 DATA B7 , 69 , 32 , 7B , 85. 77, 

66,69,82,13,17.67,65,83,61,4 

9,980 

40 1420 DATA 32,47,32.68,73,83, 
75 , 61 , 32 , 56 , 32 , 79 , 82 , 32 , 57 , 5 
8,899 

AE 1430 DATA 45,32,0,67,72,65,8 
2,83,0,0,0,0,0,0,0,0,446 

95 1440 DATA 0,0,0,255,255,255, 
255 ,0,0,0,0,0,0,0,0,0, 1020 



PROGRAM i TEXT MAKER 



7D 10 BL-75 :LN-S0 :SA-3814 
4 

C0 20 FOR L-0 TO BL:CX-0:FOR D- 
0 TO IS: READ A:CX-CX+A 

87 30 POKE53280,A:PDKE SA*L«16* 
D, A: NEXT D 

73 40 READ Ai IF ftXCX THENPR1NT 
"ERROR IN LINE";LN+(L«10) : ST 
OP 

CD 45 NEXT L:SYS39176 

10 50 DATA 20,6,5,32,13,5,13,19 

.1.7,5.32.3,15,14,13,217 
SE 60 DATA 20.18.21,3,20,3,15,1 

4,32,11,9,20,32,23,1,19,267 
El 70 DATA 32,23,18,9,20,20,5,1 

4,32,2,25,32,6,18,1, 14,271 
ES 80 OATA 11,32,22,1,14,32,20, 

9.7,7,5,12,5.14,32,9,232 
D3 90 DATA 14,32,13,1,18,3,8,32 

.43,57,56,56.32,6,15.18,410 
35 100 DATA 32,20,8,5,32,19,5,1 

8,9, 15,21,19,32,21, 19,5, 2B0 
14 110 DATA 18,39,19,32,7,21,3. 

4,5,46,46,46.13,3,11,32.351 
D0 120 DATA 1,12,12,15,23,19.32 

,1 , 14 , 25, IS, 14, 5, 32, 20, 15, 2S 

S 

FD 130 DATA 32,3,18.5,1,20,5,32 

.20,8,5,9.18,32,15,23,246 
4C 140 DATA 14,32,19,13,15,15,2 
0.8,45,19,3,18,15, 12,12,9,26 

88 150 DATA 14,7,44,32,9,14,20, 
5,18,19,21,16,20,32,4,18,232 



13 160 DATA 8,22,5,14,32,13.5,1 
9,19,1,7,5,13,32,23,8,233 

03 170 DATA 9,3,8.32,23,3,12,12 
, 32, 5, 22, 5, 14, 32, 18,21 , 257 



2F 180 DATA 14,32,1,12,15.14,7, 
13,9,4.5,32,1,14, 15,20,214 

67 190 DATA 8,5,18,32,16,16,15, 
7,18,1,13,46,46,46,46,46,381 

D9 200 DATA 46,46,46,46,46,46,3 
2,20,8,5,19,5,32. 13,5,19,434 

20 210 DATA 13,1,7,5,19,32,3,15 

,14,20, 1,9, 14,32,21, 19,231 
0A 220 DATA 5,18,32.4.5,6,9,14, 
5,4,32,7,18.1.16.8,184 

56 230 DATA 9,3.19,32,1,14,4,32 
,3,8,1,18,1,3,20,5,173 

57 240 DATA 18,13.44,23,8,9,3,8 
,32,1,18,5,32,5,1,19,245 

9D 250 DATA 9,12,25,32,4,5,19,9 

,7,14,5,4,32,21,19,9,226 
E3 260 DATA 14,7.32,20,8,5,32,3 

,8,1,18,1,3.20,5,18,195 
80 270 DATA 32,5,4,3,20,15,18,3 
2 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 39 
1 

E5 280 DATA 32,32,32,32,32,20,5 

,2H, 20, 19. 32, 3, 1,14,32,2,332 
6B 290 DATA 5,32,23, IB, 9, 20, 20, 

5,14,32,21,19.9.14,7,32.280 
60 300 DATA 20,8,5,32,19,9,13,1 

6 , 12 , 5 , 32 , 20 , 5 , 24 , 20 , 32 , 272 
59 310 DATA 5,4,9,20,15,18,32,4 

6 , 46 , 46 , 46 , 46 , 46 , 46 , 46 , 46 , 51 

7 

59 320 DATA 32,1,32,6,5,23,32.5 

,24,1,13,16,12,5,19,32,25b 
BE 330 DATA 15,6,32.23,9,1,20,3 

2,3, 13,32, 16, 15. 13, 13,3, 27S 
C2 340 DATA 2,12.5,32,23,9,20,9 

. 32 , 13 , 3 , 1 1 . 32 . 59 . 32 , 32 , 324 
C9 350 DATA 64,65,66,67,68,32,3 

,8,9,12,4,9,19,8,32, 16.4B2 
D3 360 DATA 9.3,20,21,18,5,19,3 
2 , 46 , 46 , 46 , 46 , 46 , 46 , 77 , 78 , 5S 
8 

6E 370 DATA 79 , B0 , Bl . 82 , S3, 84 . 8 

S, 86 , 87 , 88 . 32 , 32 , 122 , 123, 124 
,125,1393 
FE 380 DATA 126,32,32,112,113,1 

14,115,116,112,113,32,32,73, 

74,32,54.1282 
40 390 DATA 52,32,32.32,32,12,1 

5 , 7 , IS , 19 , 32 , 46 , 46 , 46 , 46 , 46 , 

510 

ID 400 DATA 46,46,46,46,32,75,7 
6 , 75 , 76 , 75 , 76 , 92 , 33 , 94 , 92 , 93 
,1133 

7C 410 DATA 34,32,33,33,93,94,9 
2 , 93 , 94 , 92 , 93 , 94 , 75 , 76 , 75 , 76 
,1119 

3A 420 DATA 75,76,32,32,2,1,19, 
45, IB, 5, 12.9,5, 6, 32, 7, 376 

55 430 DATA 18,1,16,8,9,3,19,32 
. 46 , 46 , 46 , 46 , 46 , 46 , 46 , 32 , 460 

BF 440 DATA 95,96,37,98,33,32,3 

2 , 32 , 100 . 101 , 32 , 32 , 102 ,103,3 

2,32,1115 
C3 450 DATA 32,104,105,106,32,3 

2,32, 107, 108,103, 110, 111,32, 

32,32,32,1116 
05 460 DATA 32,30,31,32,32,32,3 

2,13, IS, 18,5,32,3,8,3, 12,456 

A6 470 DATA 4,3,19,8,32,19,20,2 
1 , 6 , 6 , 32 , 46 , 46 , 46 , 46 , 46 , 406 

0C 480 DATA 32,32,32,32,32,20.8 
,9, 13,32,13,5, 19,13,1,7,312 

77 490 DATA 5,32,3,15,14,20,1,3 
,14,19.32.49,48,50,52.32.395 

53 500 DATA 3,8,1,18,1,3,20,5,1 

B, 19, 44, 2,21 , 20, 32, 3,219 
73 510 DATA 1,14,32.2,5,32.5,14 
,12,1,18,7,5.4,32,20,204 



36 520 DATA 15,32,14,15,32,12,5 
, 19, 13, 32,20. B, 1.14,32,54,32 
H 

76 530 DATA 49,52,52,32,3,8,1,1 
B , 1 , 3 , 20 , 5 , IB , 19 , 32 , 33 , 346 

F3 540 DATA 32,32,32,32,13,3,11 
, 32 , 18 , 21 , 14, 19, 32 , 15 , 14 , 32 , 
352 

El 550 DATA 73,74,32,54,52,32,1 
, 14 , 4 , 32 , 73 , 74 , 32 , 49 . 50 , 56 , 7 

02 

B4 560 DATA 32,40,9.14.32,54,52 
,32,13,15,4,5,41,32,23,9,407 

7C 570 DATA 20,6,32,117,118,32, 
15,18,32, 119,120, 121,32,46,4 
6,46,922 

3A 580 DATA 46,46,46,46,46,32,5 
,24.16,5,3,20,32,13,15,18,41 
3 

5B 590 DATA S , 32, 16, IB , 15, 7 , 18 , 

1.13.19.32,21,13,3,14,7,246 
DA 600 DATA 32.13,3,11,32,9,14, 

32 , 20 , 8 , 5 , 32 , 14 , 5 , 1 , 18 , 249 
33 610 DATA 32,6,21,20,21,16,5, 

32.33,32,32,32,32,32,32,32,4 

12 

30 620 DATA 32,20,8,5,32.13,5,1 
3,19,1.7,5,32,3,15,14,230 

6B 630 DATA 19,20,19,21,3,20,9, 
15,14,32.11,9,20.32,32,0,275 

57 640 DATA 32,49,57,56,56,32,6 
,18,1.14,11,32,22,1,14,32.43 
3 

C2 850 DATA 20,9,7,7,5,12,5,14, 
32 ,38 , 32, 25 , 15, 21 , IB, 32, 292 

54 660 DATA 3,15,13,13,15,4,15, 
18.5.39,19,32,19.5,18,9.242 

Al 670 DATA 15,21,13,32,21,13,5 
, IB, 39, 19, 32, 7,21 ,9,4,5, 286 

9F 680 DATA 32,32,32,32,32,32,3 
2, 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 
,512 

0C 690 DATA 0,0.0,0,0,0,0,0,159 
, 0 , 133 , 250 , 169 , 149 , 133 , 251 , 1 
254 

11 700 DATA 163,0.133,174,133,1 

93, 169,8, 133, 175, 133, 134, 169 

,8, 133,252,2178 
03 710 DATA 163,1S3,133,2S3,160 

, 0 , 1 77 , 250 , 145 ,174, 230 , 250 . 2 

08,2,230,251,27B5 
6F 720 DATA 230,174,208,2,230,1 

75 , 165 , 250 ,197, 252 , 20B , 234 , 1 

65,251,137,253,3191 

55 730 DATA 209 , 22B , 169 , 163 , 133 
, 187 , 169 . 1S3 , 1 33 , 188 , 163 ,4,1 
33, 183, 163,0,2383 

86 740 DATA 133,185,160,0,185,1 

IS , 153 , 240 , 6 , 32 , 210, 255 , 200 , 

206,245,32,2359 
3F 750 DATA 207 , 25S , 240 , 251 , 201 

, 49 , 240 , 4 , 201 , 56 , 48 , 230 ,41,1 

5,133,186,2357 
CB 760 DATA 76,234,245,147,17,1 

7 , 73 , 7B , 80 . 8S , B4 , 32 , 68 . 63 , 86 

,73,1464 

06 770 DATA 67,63,32,78,85,77,6 
6 , 69 , 82 , 13 , 17 , 67 , 65 , B3 , 61 , 49 
,990 

EA 790 DATA 32,47,32,68,73,83,7 
5, 61 , 32 , 56 , 32 , 79 , B2 , 32 , 57 , 58 
,899 

BD 790 DATA 45 , 32 , 0 , 84 , 59 , SB , 84 

,0,0,0,0,0,0,0,0,0,402 
F3 600 DATA 0,0,0,255,255,255,2 
5S. 0.0. 0.0, 0.0. 0.0,0, 1020 
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Keep (rack of all your files With this simple but essential cataloguing system 



Tu 



his double program consists of 
Disk Cat, which creates a file and 
File Editor, which allows you to 
make any changes to it. 

With Disk Cat you can create a 
sequential file on disk containing a 
program title and a disk number, 
such as PACMAN 21 A. You will be 
able to print out an alphabetical 
double-column master list or small 
notebook size pages to cut out and 
keep in a ring file. 

You will see from your list that 
PACMAN is on disk number 27, 
side A. If you do not double your 
disks then the A or B need not be 
included in the disk number. 

Before using Disk Cat, I use a 
directory logging program to make a 
printout of all my program titles and 
allocate a number to each disk. 

When running Disk Cat you will 
be asked to wait while the sort 
routine is poked into memory. 
When prompted, press the space bar 
and you will be presented with a 
menu. 

If you are creating a new file 
select option A. The screen will clear 



and an instruction box will appear at 
the top of the display. This tells you 
how to close a file - the only pro- 
gram title you can't use is 'END', on 
disk number '0\ 

Now enter the title ( 1 6 characters 
maximum), press return and enter 
the disk number (four characters 
maximum). When you have entered 
all the titles and disk numbers, 
simply type END, press the return 
key, type 0 for the disk number, 
press return again and the file will be 
properly closed. 

Selecting option B will allow you 
to extend an existing file. The drive 
will run for a few seconds as it places 
the read/write head at the end of the 
file. Then proceed as in option A. 

Option C will read your file into 
memory and automatically sort it 
into alphabetical order and then you 
will be presented with a new menu. 

When you choose option D the 
screen will clear and you'll be asked 
to enter the date. You should have 
your printer switched on at this 
stage. The date should be entered in 
the form DD/MM/YY. Press return 



and in a few moments you will have 
a double column, alphabetical mas- 
ter list of all your program titles and 
disk numbers. Disk Cat has been 
tested on the MPS 801,803 and 
MPS 1000. 

Option E will display a sub- 
menu, select P for printer or S for 
screen. You will then be asked to 
enter a category. If you enter C, 
every title beginning with C will be 
listed either to the screen or the 
printer. If you enter two letters, eg. 
CL, then only the titles beginning 
wth CL will be listed. 

If you originally selected P the 
output will be sent to the printer and 
this will give you a 1 25x90mm page 
which can be cut out and put into a 
small ring file. 

If you make a mistake entering a 
title or disk number don't panic, you 
can use File Editor to make any 
corrections, changes or deletions. It 
will then scratch the old file from 
disk and replace it with the update. 
File Editor has on-screen instruc- 
tions and you should find it simple 
to follow. 



PRDGRAfl: DISK CAT 



3C 10 POKE643.0 

DF 80 PR1NT"CCLR:":POKE53E80. 15 
: P0KE532B1 , 11 : PR1NTTABC 11) D C 
RUSON , C8 , CA , 5-17 , CS3 " 

00 30 PRINTTABC11)"CRUSDN,S-,SP 

C17.S-3" 
EC 40 PRINTTABCll)"CRUSON,S-,SP 

C4DD1SK CATC5PCS,S-3" 
Al 50 PRINTTABCllVCRUSON.S-.SP 

C17.S-3" 
EE B0 PRINTTABCllV'CRUSDN.S-.SP 

C73BYC5PCB.S-3" 
F5 70 PRINTTABai) ,, CRUSDN,S-,5P 
C17.5-3" 

DA B0 PRINTTABC113"CRUSaN,S-,5P 
C33 JOHN HYDEC5PC4 , S-3 " 

45 90 PRINTTABClir'CRUSON.S-.SP 
C17.S-3" 

EB 100 PR1NTTABC11)"CRU50N.CZ,S 
•17^X3" 



05 110 RR-13:C-B:GOSUB1B90:GOSU 
BG90 

B5 120 DIMXSC10003:LS-"CRUSON,C 
A , 5»B , CS3 " : C$-"C RUSDN , SB3DI S 
K CATCSB3":BS-"CRU50N,CZ,S-B 
1 CX3 n :CRS-CHR£C13i 

97 130 9PS-"C5PC393" 

FE 140 NAS-"TITLE" ; DNS-"DI5KI» ,, : 
HLS""MASTER LI5T" : DCS-"DISK 
CAT " 

4B 150 Z-0:FQRJ-49152TO493G4: 
41 1G0 READA : POKE J , A : Z-2*A : NEXT 

B4 170 IFZ<>23842THENPRINT"ERR0 

R IN DATA! " : END 
9D 1B0 POKE49248,0:POKE643, 10:R 

R-13 : C-0 : GOSUB1B90 : NN-7 : GOSU 

B1900 

39 190 RR-16:C-B:GD5UB1890 

5D 500 PRINT"CRUSON 1 CA 1 S«21 1 CS3 

31 510 PRINTTABC8)"CRUS0N,S-,SP 



cei.s-3" 

30 250 PRINTTABC8V , CRUSON,S-3HI 

T SPACE TO CONTINUED 5-3" 
B5 230 PRINTTABC83"CRUSON,S-,SP 

63 240 ' PR INTTABC8) "CRUSON , CZ , S- 

FS 2S0 C GETAS: IFASOCHRSC323THEN 
250 

SI 250 GOTO720 

E2 270 □PEN15 1 B,15 : OPEN2 1 B,2."0 

:DC TITLE, S , U" 
22 2B0 GDTQ31B 

97 290 □PEN15 1 9,15 : DPEN2 ( B,2 1 "0 

:DC TITLE , A" 
C4 300 RR-11:GOSUB1B90 
54 310 GQSUB550:PRINTTABC13)"CR 

05DN,CA,S-11.CS3" 
BA 320 PRINTTABC13)"CRU3DN,5-3E 

NTER TITLECS-3" 
BD 330 PRINTTABC13)"CRUS0N 1 CZ,S 

•1 1 , CX , RUSOFF3 "SPCC 58) : I NPUT 

PNS 
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► 



ai 

DB 
FF 

20 

0£ 



32 

B4 

AB 
5E 

AC 
33 
7A 



Al 



D4 



45 



DF 



E9 
44 

CE 



343 S-LENCPNS) ; I FS> 16THENRR- 
1 1 : NN-5 : GOSUBI900 : BDTD1770 
350 RR-11:NN-5:GOSUB1900 
3B0 PRINTTABC 9) "C RUSON , CA , S* 
17.CSD " 

370 PRINTTABC9VC RUSON, S-D EN 

TER DISK NUnBERCS-D" 

380 PRINTTABC9)"CRUS0N,CZ,S» 

17,CX,RUS0FF3"5FCC55): INPUTN 

S 

390 5S-LENCNS): I FSS> 4THENRR- 

11 : GOSUB1900 i GOTO1B10 

400 IFPNS-"END"ANDN$-"0"THEN 

GOTO440 

410 PR1NT*2,PNS;CRS;NS 

4E0 GO5UB650:NN-13:RR-11 : 60S 

UB1900 

430 IFPNS<>"END"THEN310 
440 CLOSES :CLOSE15:GOTO740 
450 RR-10:C-0:GOSUB1B90:PRIN 
TTAB C 1 3 ) "C RUSON , CA , S*12 , CS3 " 
SPCCS6) 

4B0 PR INT "C RUSON, S- DREADING 

FILECS-D"SPCCS6) 

470 PRINT"CRUS0N,CZ,S»12,CXD 



DD 4B0 OPEN1S,8,1S:OPEN2,B,2,"0 

:DC TITLE , S, R" 
2E 490 GOSUBB50: I-0:X-0 
C3 S00 INPUTItS.PNS.NS 
A5 510 m$-"QQm n +N$: A-LENCNUS) 

: IFA>-4THENA-4:NS-RIGHTSCNUS 

,A) 

30 5E0 RS-ST:GQSUB650 

DA 530 TS-"CSPCS0D" 

BB 540 Q-LENCPNS): I FQ< -17THEND- 

Sl-LENC PNS) 
0B 550 TS-LEFTSCTS.O) 
04 560 I-H-1:X-X+1:XSCI)-PNS+TS 

+ NS 

36 570 IFRS-0THENS00 
BF 5B0 I FR5< > 64THENPR I NT "STATUS 
-";RS 

BE 590 CLOSES :CL0SE1S 

AA 600 RR=10:l>0:BOSUBlB90:NN-6 

: GDSUB19GG 
8C 610 PRINTTABC13)"CRU50N,CA,5 

-12.CSD"SPCC26) 
EA 650 PR I NT " C RUSON, S- 3 SORTING 

FILECS-3"SPCC26) 
85 830 PRINT'TRUSON.CZ.S-ie.CX] 

BA 640 GOSUB1490:GOSUB1900:GDTD 
B7B 

F6 B50 INPUT* 15, EN , EflB , ET , ES 
Bl 660 IFEN>0THENPRINTEN, EMS, ET 

,ES:STQP 
EE 670 RETURN 

FC 6B0 PR1NTCHRS(147)TABC15)L$: 
PRINTTABC15)CS: PRINTTABC 15 )B 
S 

45 690 PRINT"CRUS0N,CA 1 5*26,CS3 

M 

BA 700 PRINTTABC6)"CRUS0N,S-3IN 
ITIALISINB. , .PLEASE UAITCS-3 



710 PRINTTABC6r'CRUS0N,CZ,S" 

EG , CXD " : RETURN 

7E0 PRINTCHRSC147)TABC5S)LI: 

PRINTTABC 15)CS: PRINTTABC 15)B 

S: RR-B: C-9 : GOSUB1B90 

730 BDTD7S0 

740 RR-5:O0:GOSUB18S0:NN-18 
: GOSUB1910 

750 PRINTTABC9)"CRU50N,CA,S* 



ao.csD- 

05 760 PRINTTABC9)"CRUS0N,S-DA) 

CREATE A NEW FILEC5-3" 
BD 770 PRINTTABC9)"CRU9DN,g-,9P 

CE0,S-3"' 
AB 7B0 PRINTTABC9)"CRU50N,5-3B) 

ADD TO A FILECSPC4.S-3" 
£9 790 PRINTTABC9)"CRU90N,S-,SP 

CS0.S-D" 
AB 800 PRINTTABC9)"CRU90N,9-3C) 

READ A FILECSPC6.S-3- 
05 810 PRINTTABC9)"CRUS0N,CZ,S" 
E0.CX3 " 

54 820 GETAS: IFAS-""THENBE0 
SB B30 IFAS-"A"THENBOSUB990:6OT 
□E70 

60 840 IFAS-"B"THENNN-1B:RR-5:G 

OSUB1900 : RR-5 : GO9UB1B90 : GOSU 

B1000:GQTOE90 
C2 B50 IFAS-"C"THENRR-5:NN-1G:G 

□5UB1900:GOTD450 
64 860 IFASO-'A-ORASO'-B'-QRABO 

n C"THENBE0 
EB 870 RR-10:GOSUB18B0:PRINTTAB 

C6) "C RUSON , CA , S-E7 , CS3 " 
BB BB0 PRINTTABC 6) "CRU50N, S-DD) 
PRINT MASTER FI LECSPC7 , S-3 " 

4C B90 PRINTTABC6)"CRUS0N,S-,SP 

CE7.S-3 " 
59 900 PRINTTABC6) " C RUSON, S-3 E) 
PRINT ALAPHABETICAL PAGECS- 

3" 

78 910 PRINTTABC6)"CRUSON,S-,SP 
CS7.S-3" 

30 9E0 PRINTTABC6)"CRUSON,S-3Z) 

QUIT PROGRAf1t1ECSPC10,S-3" 
B4 330 PRINTTABC6)"CRUS0N,CZ,S* 

E7.CX3'" 
IB 940 GETAS: IFAS- " "THEN940 
51 950 IFAS-"D"GOTO10B0 
El 960 IFAS-"E"GOTO1180 
C0 970 IFAS-"Z"THENCLR: END 
IE 9B0 IFA$<>"D"0RAS<>"E"0PAS<> 

"F-THEN940 
3B 990 PRINTCHRSC147)TABC55)LS: 

PRINTTABC 15)CS: PR I NTT ABC 15) B 

S 

80 1000 PRINTTABC6)"CRU5DN,CA,S 

•E7.CS3 " 
E6 1010 PR I NTTAB C 6 3 " C RUSON , S- 3 T 

0 RETURN TD MENU ENTER ENDCS 

-3" 

9E 10E0 PRINTTABteVCRUSON.S-.S 

PCE7.5-3" 
CB 1030 PRINTTABC6)"CRUSON,S-D 

PRESS RETURN AND ENTER 0 CS 

-3" 

Fl 1040 PRINTTABCGVCRUSON.CZ.S 

•S7.CX3" 
90 1050 RETURN 

5C 1060 CLOSES :0PENS,4:LC-55:NN 

-13:RR-10:6OSUB1S00 
IE 1070 PRINTTABC14)"CRU50N,CA, 

S-10.CS3" 
E4 1080 PRINTTABC14)"CRUS0N,S-D 

ENTER DATECS-3" 
SC 1090 PRINTTABC14) "CRUSON.CZ, 

S*10,CX3": INPUTDAS 
90 1100 6OSUB1900: PRINTTABC 135 " 

C RUSON , CA, S"13, CSD " 
94 1110 PRINTTABC13)"CRUSQN,S-D 

PRINTING FILECS-3" 
IB 11E0 PRINTTABC13)"CRUS0N,CZ, 

S-13,CX3":GOSUB1H40 



BF 1130 U-INTCCX+D/2) 

30 1140 F0RJ-1T0U:X-J:X-U+J 

C6 1150 PRINTttS , " "TABC 7 3XSC J) ; T 

ABC9)XSCX):LC-LC+1 
93 11G0 IFLC-55THENF0RZ-1T03:PR 

I NTttE , CHRSC 10 5 j NEXT : G0SUB144 

0 

77 1170 NEXTJ:CLOSEE:GOSUB1900: 
GOTO970 

56 1180 NN-B:GOSUB1900:PRINTTAB 
C8) "C RUSON, CA.S-E0.CS3" 

98 1190 PRINTTABC8D"CRUSON,S-3P 
) OUTPUT TO PRINTERCS-3" 

57 1E00 PRINTTABC8)"CRUS0N,5-,S 
PCE0,S-3 n 

4B 1E10 PRINTTABCB)"CRUSON,S-3S 
) OUTPUT TO SCREEN CS-D" 

B3 1220 PRINTTABCB)"CRUSON,S-,S 
PC20.S-3" 

D4 1230 PRINTTABCBVCRUSON.S-DX 
3 RETURN TO I1ENUCSPC3,S-D" 

DF 1E40 PRINTTABCB)"CRUSON,CZ,S 
•S0.CXD" 

6F 1E50 BETAS: IFAS-""THEN1E50 

CA 1260 IFAS-"P"THENGOTO1300 
57 1270 IFAS-"S"THENGOTO15E0 
E5 1EB0 IFAS-"X"THENGOTOB80 
00 1290 IFASO"P"0RASO"S"0RAS< 

>"X"THEN1E50 
CB 1300 RR-10:NN-7:GOSUB1900:PR 

INTTABC 6 5 "C RUSON, CA . S-EB . CSD 

7B 1310 PRINTTA8C6)"CRUSON,5-3E 
NTER CATAGORY TO PRINT: A-ZC 
S-3" 

FG 13E0 PRINTTABC6)"CRUS0N,CZ,S 

•SB.CXD" 
DB 1330 INPUTCAS 

EG 1340 CLOSE3:OPEN3,4:LC-0:GOS 

UB1470 
BC 1350 F0RJ-1TOI 
F4 1360 IFCAS-LEFT5CXSCJ),1)THE 

NPRINTttS , '"'TABC3)XSCJ5 ;TABC4 

)CHRIC104):LC-LC-1 
0C 1370 IFLC-EETHENGOSUB14S0 
35 13B0 NEXTJ 

AA 1390 FORZ"LCTOEB: PRINTW3 , " "T 

ABC32)CHRSC104):NEXTZ 
CE 1400 F0RT-lT032:PRINTtt3,CHRS 

C196) ; : NEXTT 
9C 1410 PRINT#3:CLOSE3:GOSUB190 

0:GOTO870 
0E 1420 F0RZ=LCTOE6 : PRINTttS, ""T 

ABC3S)CHRSC104):NEXT 
ED 1430 FDRT-lT032:PRINTtt3,CHRS 

C 196) ; : NEXT : PR I NT#3 , CHRSC 10) 

: GQSUB1470 : RETURN 
FD 1440 PRINTH2: PRINTttE , " "TABC 6 

)CHRSC14)DCS,TABC3)nLS;TABC3 

)DAS:PRINTtte 
61 1450 PRINTttE, ""TABC4)NAS;TAB 

C4 )DNS; TABC3)NAS j TABC 4 JONS ;C 

HRSC15) : PRINT WE: LC-0 
37 1460 RETURN 

4C 1470 PRINTttS, CHRSC 14)TABCE)N 
AS; TABC3)DNS ; CHRSC 15)TA8C2) ; 
CHR$C104):PRINT#3 

2A 14B0 LC-0: RETURN 

B0 1490 N2-INTCI/256):Nl-l-256- 
NE 

El 1500 POKE49366,Nl:P0KE49367, 
N2 

AA 1510 SYS4915S: RETURN 

7E 15E0 RR-5:NN-19:GOSUB1900:PR 




LISTING 





INTTABC 165) "C RUSON , CA , S-2B, C 




RE5S RETURN TO CONT INUEC S-3 " 


37 


1920 C=0:GOSUB18S0:RETURN 




S3" 


as 


1730 PRINTTABC7) , 'CRUS0N,CZ,5 


F7 


1930 DATA 173 . £14 , 192, 208 ,6.1 


43 


1530 PRINTTABC5)"CRUS0N,S-]E 




•24,CX3" 




73.215, 192,208, 1 ,96, 165,47,2 




NTER CATAGORY TQ PRINT: A-ZC 


BF 


1740 GETAS: IFAS-""THEN1740 




4 10S. 10, 133. 34. IBS 




S-3" 


39 


1750 I FASOCHRSC 133THEN1740 


FB 


1940 DATA4B 1 105,0, 133,35,76, 


7D 


1540 PRINTTABC5)"CRUSON,CZ,S 


FC 


1760 GOSUB1900:LC-0: RETURN 




163, 192. 160,0,177,34,72, 177, 




*2B,CX,D0UN3" 


F4 


1770 PNS-"":PRINTTABC1)"CRUS 




36, 145,34, 104, 145,35 


B9 


1550 INPUTCAS 




ON, CA ,5-35,053" 


S3 


1S50 DAT A500. 132 ,3, 208, 24 1,7 


1A 


1560 RR-S:GOSUB1300: LC-0:L-L 


45 


17B0 PRINTTABC13"CRUSON,5-3T 




6,116,132,169,0,141,218,192, 




ENCCAS) :Z-ASCCLEFTSCCAS, 13) 




ITLE HUST BE 16 CHARACTERS 0 




168,177,34,240,59 


IF 


1570 FQRJ-1TDI 




R LESSC5-3" 


30 


I960 DATA141 ,213, 192, 177,36, 


87 


15B0 IFCAS-LEFTSCXSC J) , L3THE 


0F 


1790 PRINTTABC1)"CRUS0N,CZ,S 




240,219,205,213,192, 176,8, 14 




NPR INTTABC 8 )XSC J) :LC-LC+1 

1 VI *\ Alia • ' * r ' » *yw ^ ■* m ^» 




• 35 , CX 3 " : GOSUB1B50 : NN-1 1 




1,213.192,169,1,141 


EB 


1530 IFASCCLEFTSCXSC J) . 1 ) )>2 


El 


1B00 GOSUB1500:GOTO310 


3D 


1S70 DATA218, 192,200, 177,34, 




THENJ- I 


65 


1810 NS- ,, ":PRINTTABC13"CRUS0 




133 , 251 . 177 , 36 , 133 , 253 , 200 , 1 


EB 


1600 1FLC-14THENBOSUB1710 




N.CA, 5-36,053" 




77,34, 133,252, 177,36 


1C 


1610 NEXTJ 


70 


I860 PRINTTAB(l)"CRUSON,5-3D 


03 


1980 DATA133.254, 160,0, 177,2 


50 


1620 PRINTTABC47)''CRUS0N,CA, 




I5K N0 MUST BE 4 CHARACTERS 




53,209,251, 144, 180, 20B, 11 , 20 




S-24 , CS3 " 




OR LESSCS-3" 




0,205.213,192,208 


75 


1630 PRINTTABC7)"CRUSON.5-3P 


CB 


1B30 PR1NTTABC1)"CRUS0N,CZ,S 


AD 


1990 DATA242, 173,218, 192,209 




RE5S RETURN TO CONTINUECS-3 " 




•36, CX3 " : 6OSUB1B50: NN-11 




, 167 , 165 , 36 , 24 , 105 , 3 , 133, 36 , 


OH 


1 RH0 PR INTTABC 7 3 "LRUSQN. 5- , S 


5E 


1840 GGSUB1900:GOTO360 




165, 37, 10S.0, 133,37 




pr=;Tnp x fdr henucspcb S-3": 


1C 


1B50 F0RA-54272T0542S6: POKEA 


81 


2000 DATA173,216, 192,208, 3,2 




P0KE196 0 




,0:NEXTA 




06.217. 192,206,216, 192, 173,2 




16S0 PRiNTTABC7)"CRU5DN,CZ,S 


51 


I860 P0KE54272,4:PaKE54273,4 




16, 192.20B, 15B, 173 




•24,CX3":POKE19B,0 




8 : P0KE54277 , 0 : P0KE5427B , S4S : 


SC 


2010 DATA217,132,20B,153,165 


10 


1660 GETAS : I FAS- " "THEN1660 




P0KES4296.15 




, 34 , 24 , 105 , 3 , 1 33 , 34 , 1 65 , 35 , 1 


E5 


1570 IFAS-"X"THENRR-5;G0SUB1 


F3 


1870 FORZ-1TO10:POKE54276,17 




05,0,133,35,173,214 




900 : GOTDB70 




:PDKES4276. 16 : FORU-1TO200 : NE 


69 


2020 DATA 192 , 20B , 3, 206, 215,1 


A5 


16B0 IFAS-CHRSC133THEN1520 




XTU:NEXTZ 




32,206,214, 132, 173,214, 192,2 


as 


-1690 I FASOCHRSC 13)QRAS<>CHR 


CC 


18B0 P0KE54296 , 0 : RETURN 




09,6, 173,515, 192, 20B 




S C BB ) THEN 1660 


□A 


1890 R-RR:P0KE7B1,R:P0KE7B2, 


IB 


2030 DATA1,96. 173,214,192, 14 


A3 


1700 GDTD15E0 




0 : P0KE7B3 , 0 : 5YS55520 : RETURN 




1,216,192,173,215,192.141,21 


7A 


1710 PRINTTABC47)"CRUS0N,CA, 


F3 


1900 C-0:GOSUB1B90 




7,192,155,34,24,105 




5-24, CS3" 


57 


1910 F0RP-1T0NN:PRINTSPS:NEX 


02 


2040 DATA3, 133,36, 155, 35. 105 


2F 


1730 PRINTTABC73"CRUS0N,5-3P 




T 




,0, 133,37,76.47,192 



•15.CX3" 

E7 570 FORCO-1TO1200:NEXTCO:RR- 

5 : NN-1S : GOSUB9000 : GOTO2000 
80 580 F0RA-1T038:PR1NTTABC13CH 

RSC192); : NEXTA 
62 600 RR-8:C-2:GDSUB7000:PRINT 

"CRUSON.CA.S-SS.CSJ" 
6E 601 PRINTTABC2)"CRUSON,S-3UP 
ARROW RETAINS TITLE OR DISK 
N0. CS-3" 
35 602 PRINTTABCBVCRUSON.S-.SP 

C35,S-3" 

BE 610 PRINTTAB(2V'CRUSON,S-3BA 
CK ARROW DELETES TITLE & DIS 
K N0.CS-3" 

4B 611 PRINTTABC2)"CRUS0N,5-,SP 
C35.S-3" 

66 612 PR1NTTABC2VCRU5DN,S-,SP 
C103RETURN TO ABORTCSPC10 , 5- 
3" 

82 613 PRINTTABC2)"CRUS0N,C2,S* 

35, CX] " 
44 615 REnPNS-"":NS-" M 
6F 620 PNE-" " : INPUT "CD0WN3 " ; PNS 

: S-LENC PNS ) : I FS> 16THENGOTO50 

00 

FD 625 I FPNS-CHRSCS4 3THENPNS-PR 

SCJ):PRSCJ)-PRSCJ) 
D9 626 IFPNS"" "THENPRSC J J-PRSC J 
) :DNSCJ)-DNSC J): J-I+l : RR-5 : N 

N-16 : GOSUB9000 : GDTO2000 
3F 630 IFPNS-"_"THENPRSC J)-"":D 

NSC J)-" " :NN-10:GDSUBS000:GDT 

02000 

E6 635 RR-1G:NN-6:GOSUB9000 




YOUR COMMODORE SERIOUS USERS GUIDE 
46 



PROGRAfl : DISK CAT EDITOR 



C9 10 PRINT"CCLR]":POKE532B0, 15 

:PDKE53281,11 
3E 15 RR-2:C-13:GOSUB7000: PRINT 

"CCB , RUSON , CA , S-l 1 , CS3 " 
BC 20 PRINTTABC13) "C RUSON , S-3FI 

LE EDITORCS-3" 
14 25 PRINTTABC13)"CRUS0N,S-.SP 
Cll,S-3 n 

32 30 PRINTTABC13r"CRUS0N,S-,SP 

C43BYCSPC5 , S-3 " 
46 35 PRINTTABC13)"CRUS0N,S-,SP 

Cll.S-3" 

AA 40 PRINTTABC133"CRUSON,S-3 J 

OHN HYDE CS-D" 
48 45 PRINTTABC13r'CRUS0N,CZ,S- 

11.CX3" 

BD 50 REM: ::::::::::::::: i ! : : J : 

42 100 CRS-CHRS(13):SP$-"CSPC3S 
3" 

7D 110 LS-"CRUS0N,CA,S-11,CS3": 
TS-"CRUSDN,S-3FILE EDITORCS- 
3 " : BS- " C RUSON , CZ , S-ll , CX3 " 

82 120 DinPRSC 1000J ,DNSC 1000) 

10 160 GOSUB4000: GO5UB300 : RR-10 
: C-l 3 : GDSUB7000 : PR I NT " C RUSON 
.CA.S-12.CS3" 

9A 161 PRINTTABC13)"CRUS0N,S-3R 
EADING FILECS-3" 

73 162 PRINTTABC13) ,, CRUS0N,CZ,S 
•12.CX3- 

5E 200 CL0SE15:0PEN1S,B, 15:0PEN 
2,8,2, "0;DC T ITLE , 5 , R" 



35 210 GOSUB1000: 1-0 

1A 220 INPUTM2,PNS,NS 
9C 230 RS-ST:GOSUB1000 

7F 240 I-I+1:PRSCI)-PNS:DNSCI)- 
NS 

6D 250 IFRS-0THEN220 
3A 260 IFRS<>64THENPRINT"STATUS 
-";RS 

E4 270 CL0SE2:CLDSE1S:RR-9:NN-S 

: GOSUB3000: GOTO2000 
71 300 PRINTCHRSC147):RR-1:C-13 

:GOSUB7000:PRINTLS 
2A 310 PRINTTABC13)TS 
62 320 PR I NTT ABC 13)BS : RETURN 
81 500 RR-8:C-4:GOSUB7000:PRINT 

"CRUSON,CA,S-30.CS3" 
8A 501 PRINTTABC4)"CRUS0N,5-3EN 

TER TITLE YOU WISH TO CHANGE 

C5-3" 

46 502 PRINTTABC4)"CRUS0N,CZ,S- 

30 t CX3";CAS-" " 
BA 510 INPUT"CDOliJN]";CAS 
A9 515 IFCAS-""THENRR-7;GOSUB90 

00 : GOTO2000 
83 530 FDRJ-1TDI 

CO 540 IFPRSCJ)-CASTHENRR-B:NN- 
5 : GOSUB9000 i RR-5 : GOSUB7000 : G 

DTOB000 
F4 550 NEXTJ 

5C 560 IFCASOPRSC J )THENRR-12 : C 
-11: GDSUB7000 : PRINT "CRUSON.C 
A 1 S-15,CS3" 

74 552 PRINTTABC11)"CRUSDN,S-3T 
ITLE NOT FOUNDCS-3" 

50 565 PRINTTABC11)"CRUSDN,CZ,S 



LISTING 



B7 640 RR-16:PRINTTABC9)"CRUS0N 

30 641 PRINTTABC93 "C RUSON, S-3EN 

TER DISK NUMBERC5-3" 
E4 643 PRINTTAB(93"CRUS0N,C2,5" 

17.CX3" 

05 650 NS- M ": I NPUTNS : S5-LENCNS 3 

: IFS5>4THEN6OTO5010 
33 651 IFNS-CHRSC943THENNS-DNSC 

J3:DNSCJ3-DNICJ) 
53 656 IFNS- H "THENPRS( J3-PRSC J3 
:DNSCJ3-DNS(J3: J- I +1 : RR-5 : NN 

-16 : GOSUB9000: GDTO2000 
43 660 PRSC J3-PNS:ON$CJ3-N$: J-I 

+1 : RR-5 : NN-16 : GDSUB9000 : SOTO 

3000 

6F 1000 REh: : : : CHECK ERROR CH 

ANNEL: : : i 
E3 1010 INPUTHIS.EN.EMS.ET.ES 
E4 1020 IFEN>0THENPRINTEN, Ef1S, E 

T, ES ; 9T0P 
B4 1030 RETURN 

B3 2000 RR=B:C-6:GOSUB7000:PRIN 
T"CRUS0N,CA,S»25,CS]" 

84 5010 PRINTTABC63"CRUSON,S-3A 
) CHANGE OR DELETE TITLEtS-3 

Hi 

C7 2011 PRINTTABC63"CRUSON,S-,S 

PC25.S-3" 
60 2020 PRINTTABC63"CRUSQN,S-3B 

3 SAUE CHANGESCSPC10.S-3 " 
95 2025 PRINTTABC6J M CRUS0N,S-,S 

PC25.S-3" 
Bl 2030 PRINTTflBCeVCRUSON.S-^C 

3 QUIT PROGRflririECSPCB.S-]" 
73 2031 PRINTTABC63"CRUS0N,CZ,5 

•25.CX3" 
BC 2040 BETAS: I FAS- " "THEN2040 
7C 2050 IFAS-"A"THENRR-7:NN-10: 

GOSUB9000: GOTO500 
BF 20B0 IFAS-"B"THENRR-7:NN-10: 



GOSUB9000:GOTD3O00 
DF 2070 IFAS-"C"THENPRINTCHRSC1 

47 3:CLR:END 
97 2080 1FASO"A"ORAS<>"B"ORAS< 

>"C"THEN2040 

42 3000 REM: : : : : : SAUE UPDATED F 
ILE: : : : : : 

A9 3005 RR-11:C-9:GOSUB7000:PRI 
NT I, CRUS0N,CA,S' , 19 1 CS3" 

12 3010 PRINTTABC93"CRUSON,S-3S 
AUING UPDATED FILECS-3" 

60 3013 PRINTTABCS3"CRUS0N,CZ,S 
•19.CX3" 

77 3015 0PEN1S.B, 15, "S0:DC T1TL 
E" 

E7 3020 0PEN2,8,e, "0:DC TITLE, S 
,W" 

91 3030 F0RJ-1T0I : PRINTB2, PRSC J 

3;CRS;DNSCJ3:NEXTJ 
C2 3040 GOSUB1000:CLOSE2:CLDSE1 

5 : GO5UB9000 : GOTO2000 
41 4000 RR-12:C-7:GO5UB7000:PR1 

NT " C RUSON , CA , S*24 , CS3 ■ 
C0 4001 PRINTTABC73"CRUSON,S-3P 

UT FILE DISK INTO ORIUECS-3" 

54 4005 PRINTTABC73"CRUSON 1 S-,S 

PC24 , 5-3 " 
79 4010 PRINTTAB(73"CRUSON,S-3H 

IT ANY KEY TO CONTINUE CS-3" 

86 4011 PRINTTABC73"CRUS0N,CZ,5 

•24.CX3" 
CB 4020 GETflS: I FAS- " "THEN4020 

43 4030 RETURN 

04 5000 RR-16:NN-S:BOSUB9000;PR 
INTTABC23 "C RUSON, CA , 5*35 , C53 

It 

4B 5001 PRINTTABC23"CRUSON,S-3T 
ITLE MUST BE IB CHARACTERS 0 
R LESSCS-3" 



FC 5002 PRINTTABC23"CRU50N,CZ,S 

•35 , CX 3 " : PNS- " " : GOSUB5020 
CC 500B GOSUB9000:GOTO620 
FD 5010 GDSUB9000:PRINTTABtlJ°C 

RUSON , CA , S*3B , C53 " 
34 5011 PRINTTABC1VCRUS0N.S-3D 
ISK NO MUST BE 4 CHARACTERS 

OR LESSCS-D" 
IS 5012 PRINTTABC13 N CRUSON,C2,S 

•36 , CX3 " : NS- " " : GOSUB5020 
DD 5015 GOSUB9000:GOTO640 
61 5020 FORA-S4272T054296:POKEA 
,0:NEXT 

13 5030 POKE54272,4:P0KES4273,4 

B;POKE54a77,0:POKE5427B,249: 

P0KES429B, 15 
29 5040 FORZ-1TO10:POKE5427B, 17 

:P0KE54276, 16 : FORU-1TO150 : NE 

XTU:NEXTZ 
FA 5050 P0KE54296 , 0 : RETURN 
86 5000 RR-17:C-38:GOSUB7000:FO 

RZ-1TO117:PRINTCHRSC203; : NEX 

T 

20 6010 RR-15:C-0:GOSUB7000:RET 
URN 

9E 6100 RR-22:C-0:GOSUB7000:FOR 
Z-1TO11S:PRINTCHRSC203 ; : NEXT 

D8 6110 RR-19:C-0:GOSU87000:RET 
URN 

64 7000 R-RR:P0KE7B1,R:P0KE7B2, 
Cs P0KE783 , 0 : SYS65S20 1 RETURN 

CE 8000 DEF FNCCX3-20-CLENCTES3 
/23 

BC 8010 TES-PRSCJ3+" "«-DN$(J3: 
PR I NTTAB C FNCC X 3 3 ; TE$ : GOTO5B0 

□0 9000 C-0: GOSUB7000 
7F 9010 F0RP-1T0NN:PRINTSPS:NEX 
T 

FB 9020 C-0 : GOSUB7000: RETURN 







LISTING 



Program 
Compactor 



Reduce long files and link up your programs to save 

on disk space 



A 



"5 

"S 



fter a game has been written 
there are normally several chunks of 
code which are spread about in the 
computer's memory. The Program 
Compactor will help to tie these 
routines together and then crunch 
them down into a neat little file. 

The program will not work on 
Basic programs but it will happily 
attack anything lying from $0300 to 
SFFFF. Any number of files can be 
linked as long as the total area 
covered does not exceed 234 disk 
blocks. 

When the program runs, it fills 
up the program memory with zero 
bytes to help the cruncher to do its 
work. When finished a prompt ap- 
pears asking for LO-MEM lo be 
input. The lowest memory location 
occupied by any part of the program 
code is entered in hex, as are all 
inputs in the program. 

A SKIP value is the next request 
which means that the cruncher will 
ignore the 768 bytes following the 
input value. This is useful in skirting 
around screen areas. For example, if 
code starts at $0300 and another 
piece of code starts at $0800, the 
screen area can be omitted by enter- 
ing $0400 at the SKIP prompt. 

The next job is to load the first 
file into the computer. At the FILE- 
NAME prompt, entering will 
display the disk directory. When the 
program name is known, it can then 
be entered (without quotes) at the 
name prompt. 

When the program has loaded, 
the rest of the files can be loaded 
until everything is in memory. Now 




it's crunch time and entering T 
instead of a filename will set the 
process into motion. 

A screen printout of memory 
space used and the current disk 
block rating is given while the bor- 
der flashes to indicate that the 
crunch is proceeding. After the 
cruncher comes the optimiser which 
further compresses the data. 

On completion, the program 



prints the new memory usage and 
block count details before asking for 
the hex boot location for the coded 
program. Next a filename for the 
saved program is needed and this is 
the last point at which disks can be 
changed. Enter the new filename, 
press return and the job's complete. 

Another copy can now be saved 
with a new filename, if necessary, or 
pressing the return key without en- 
tering anything will reset the pro- 
gram ready for a new compacting 
session. 

If anything goes wrong at any 
point the program can be restarted 
by pressing RESTORE. This will 
reset all the program parameters and 
take the program back to the open- 
ing screen. 

In tests a 232 block program was 
reduced to 131 blocks - a saving of 
101 blocks which corresponds to 
25687 bytes! As you can see the 
compactor really does save on disk 
space. 



PROGRAM : COMPACTOR .BPS 



CI 10 REfl TYPE IN THE PR0GRAI1 ft 
ND SflUE IT ON ft SPARE CftSSET 
TE OR DISK 

30 20 REtl PREPARE A OIFFERENT D 
ISK OR CASSETTE FOR SAUINB T 
HE PROGRfin 

3D 30 REM THE PROGRAM SAUES AFT 
ER ASKING FOR A DEUICE NUMBE 
R . . . SD BEWARE! ! ! 

4E 10 BL-80B :LN-50 :SA-36BG 
4 

3E 50 FDR L-0 TD BL:CX-0:FOR D- 
0 TD 15: READ A:CX-CX+A 

31 GO PDKE538B0,A:P0KE SA+L»16* 
D. ft : NEXT D 



BD 70 READ ft: IF flXCX THENPRINT 
"ERROR IN LINE";LN+CL»103:ST 
OP 

1C BO NEXT L:SY540084 

AS 90 DATft 30,8,195,7,159,50,49 

, S5 , 55 , 38 , B4 , BS , 88 , 66 , 79 , 45 , 

1066 

OC 100 DATA 56,55,0,0,0,170,170 

,170,170,35,69,829, 169, 14,14 

1,38,1476 
EF 110 DATA SOB, 141,33,808, 180, 

169,58, 133, 1, 168, S, 189,94,9, 

157,45, 1785 
35 180 DATA 0,808,16,847,154,16 

0 , 0 , 1SB , 50 , 806 ,65,8, 177,49, 1 

53,0, 1685 
86 130 DATA 0,830,1,141,84,818, 
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3E 



SB 



138,1,800,508,541,165,50,801 
,8,808,80BB 
AD 140 DATA 830,185,100,8,153,0 
, 1 , 500 , 508 , 547 .76,0,1,0,3,5, 
1417 

BE 150 DATA 845,84,80,177,47,48 
, 45 , 48 , 48 , 41 , 7 , 170 , 189 , 86 , 1 , 
141,1316 

88 160 DATA 84,1,177,47,41,31,1 
70,38,34,1,76,855,1,168,74,1 
75, 1307 

Al 170 DATA 185,95,66,70,48,830 
,1,838,35,808,198, 1,830,47,8 
08,8,1796 
54 180 DATA 530, 4B, 96, 177,47,38 
, 34 , 1 , 14S , 45 , 830 , 45 , 80B , 5 , 53 
0,46, 1616 
5A 190 DATA 805,808,545,540,180 
,169.0, S4C , 839 , 169 , 855 , 508 , 5 
35,177.47,145.8969 
BB 500 DATA 45,35,34,1,530,45,5 
OB , 8 , 530 , 46 , 508 , 80S . 840 , 840 , 
164,38,1959 
F6 810 DATA 117,1,177,47,38,34, 
1,145,45, 830 , 45 , 808 , 8 , 830 , 46 
,808,1568 
77 850 DATA SOB , 545, 198, 57 , 16 , 5 
41,46,138,134,57,177,47,170. 
76,34,1,1B4B 

530 DATA 35,117,1,177,47,145 

,45,38,34,1,830,45,806,8,830 
,46,1398 

840 DATA 505,508.840.199,57, 
16,536,76.0,1,35,555,1,168,5 
5,133,1946 
4E 850 DATA 1 , BB, 834 . 834 , 534 , 38 
, 89 , 155 . 76 , 4B , 3 , 554 , O , 840 , 53 
S, 168,8073 
FC 560 DATA 3,44,169,8,133,555, 
177,47. 145,45,800,196,855,50 
8,547,54,5156 

570 DATA 165,45, lOl.SSS, 133. 
45.165,46,105,0, 133,46, 150,0 
,508,508,1809 

SBO DATA 589.54,165,47,101,8 
55.133,47, 165,48, 10S.0, 133,4 
B, 75, 0,1575 

890 DATA 1,185,0,839,153,0,8 
S5 , BOO , 508 . 847 , 506 , 554 , 1 , 506 
,887,1,5353 
94 300 DATA 173,557,1,501,47,50 
6,534,96,45.139,887,141,883, 
154, 16S, 56. 5577 
8B 310 DATA 167,558,167,134,174 
,55,155,86, 134,49.76, 75, 17B, 
0,49,534,1975 
7B 350 DATA 159,583,71,554,74,5 
43 , 145 , 848 , 14 , 848 , 80 , 548 , 51 , 
543, B7, 541, 8611 
88 330 DATA 505,541.537,846,68, 
541 , 47 . 543 , 105 , 554 , 165 , 544 , 5 
37,845,180. 168, 304B 
54 340 DATA 555 , 154 , 169 , 54 . 1 33 . 

1,168,55,141,84,3,169,3,141, 
55,3,1496 

43 350 DATA 169.0,141,38,803,14 
1,33,809,160,0,135,95,3,840, 
6,38,1653 

360 DATA 510,555,500.508,545 
,BB, 76,0,9, 155, 147,8,14,146, 
195,85,5035 

370 DATA 85,78,57,75,47,804, 
73 , 78 . 75 , 69 , BS , 35 , 514 , 49 , 46 , 
50,1351 



EB 
8D 
5F 



6B 

3A 



3D 

37 

EA 

33 

7A 

14 

DC 

E3 

EB 

F6 

SA 

CE 

75 

IB 

9C 

B5 

C3 

4D 

El 

64 

CS 

71 

1A 

41 

31 



380 DATA 13, 13,87,85, 73, B4. 8 I 

4,69, 78, 35,66,88, 35, 515, BS, 8 I 55 
5, 1181 

390 DATA 66,79,38,195,38,65, 
67,75,63,85.45,56,55,13,13,1 33 
63,1157 

400 DATA 35,133,1,83,557,834 
, 86 , B3 . 35 , B8 , 155 , 76 , 174 , 167 . BD 
554,0, 1855 

410 DATA 840,835,168,3,44.16 
3.B, 133.855,177,47,145,45,80 
0, 186, 55S, 5351 

450 DATA 80B.847, 54, 165,45,1 
01 , 855 , 133 , 45 , 165 , 46 , 105 , 0 , 1 08 
33,46,150,1878 

430 DATA 0,808,808,559,54,16 
5,47,101,555,133,47,165,48.1 IB 
05,0,133,1855 

440 DATA 48,76,0,1,185,0.833 
, 153 , O , 855 , 800 , 508 , 547 , 506 , 8 4 A 
84,1,8043 

450 DATA 806.887,1,173,887,1 
, 801 , 883 , 803 , 834 , 36 , 1 75 , 35 , 7 
7,79,78,5538 

460 DATA 135,1,0,50,50,3,135 

,7,158.50,48,55,55.38,84,65, 4C 
377 

470 DATA 88,56,79,45,56,55,1 
63 , SSB , 170 , 86 , 38 , 35 , 68 . 559 . 1 
68,14,1590 

4B0 DATA 141,38,503,141,33,5 
08,180,163,58,133,1,168,5,13 78 
3,34.8,1635 

490 DATA 157.45.0,508,16,847 
,154,160.0,196,50,805.65,8, 1 
77,43,1734 

500 DATA 153,168,60,830,1.14 
1,54,515, 188, 1 ,500,808,841, 1 
65,50,801,8547 

510 DATA 3,508,530,135,100,8 
, 153,0,1,800,803,547,76,0. 1, C3 
198, 1B53 

580 DATA 34,177,47,888,48,35 

,153,41,7,170,189,86,1,141,5 
4, 1, 1377 

S30 DATA 177.47,41,31,170,35 
, 34 , 1 , 76 , 555 , 1 , 168 , 74 , 175 , 15 
5 95 1495 

540 DATA 66,70,48,530,1.538, 
35 , 808 , 188 , 1 , 830 , 47 , 80S , 8 , 83 BE 
0,43,1857 

550 DATA 35,177,47,38,34,1,1 
45, 45 , 330, 45 , BOB, 8, 830 , 46 , SO EB 
5, SOB, 1748 

560 DATA 545,840,190,169,0,2 
40 , 839 , 168 , 855 , 50B , 33S ,177,4 
7, 14S, 45, 35, 5635 
570 DATA 34,1,530,45,508,5.5 
30 . 46 , 505 . 508 , 540 , 540 , 164 , 35 
,117,1,5000 

580 DATA 177,47,35,34,1,145. 
45 , 830 , 45 , 808 , 8 , 830 , 46 . 808 , 8 
08,845,1897 

580 DATA 199,57,16,841,48,13 
8 , 134 , 57 , 177 , 47 , 170 . 76 . 34 , 1 , 
38,117,1544 

600 DATA 1,177,47,145,45,35, 
34, 1,530, 45, 80B, 5, 230, 46 ,505 AS 
, SOB, 1653 

610 DATA 540,198,57,16,536,7 
6,0,1,44,585,1.169.55,76,10. A9 
9, 1410 

650 DATA 167,99,84,180,816,1 
69,58,133,1,160,0,135,88,169 



,16,133,1739 

630 DATA 89.158,141,5,8,141 
6,9. 141,3,9, 145, SB, 500, 80B, 5 
51 , 1503 
640 DATA 530,89,303,547,163, 
55 , 133 , 1 , BB , 168 , 158 , 160 , 15 , 3 
8,78,15,1883 
650 DATA 176,547,148,3.3,140 
,4,9,145,94,8,140,95,8, 165,5 
57, 1606 

560 DATA 160,15,35,75,15,176 

,18,140,8,9,168,555,141,7,9, 
155,1378 

E70 DATA 84,105,15,141,837,3 
,169,35,308,7,169,0,141,7,3, 
169. 1436 
680 DATA 44,141,351,8,38,83. 
10,38,3, 14, 165,503, 160, 15,35 
,55,1544 
690 DATA 15,169,513,33.310,8 
S5, ISO. 169,55,133, 1, 173, S, 9, 
133,90,1778 
700 DATA 173,6.9,133,91,169, 
555,133,33,133,89,160,0, 177. 
30, 145, 1351 
710 DATA 88, 165, 88, 80B, 8, 198 
, B9, 198 , BB , 165 , 90 , 308, 5, 133 , 
81,133.5076 
730 DATA 30,165,91,801,15.50 
B, 830, 830. 88, SOB, 8, 830,88, 16 
9,55, 133,8304 
730 DATA 1,89,169,195,33,310 
,555,33, 147, 10. 169,13,33,310 
,355,165,1983 
740 DATA 90,141,5,9,141,96.8 
. 56 . 533 . 555 , 141 , 98 , 3 , 165 , 81 , 
141,1678 

750 DATA 6,9,141,97.8.533,7, 

141,99,8,56,173,95,8,533.88, 
1403 

760 DATA 141,86,8,173,97,3,3 
33,17,141,97,8,56,169,0,537, 
96, 1577 

770 DATA 8,141,36,8,163,0,33 
7 , 87 , 8 , 141 , 37 , B , 33 , 8 , 14 , 163 , 
1550 

7B0 DATA 135,160,15,35.73,15 
, 143 , 165. 3 , 140 , 163 , 3 , 160 , 0 , 1 
B5, 0.1337 

780 DATA 8.153,0,16,500,508, 

547,160,88,185,155.3,153,0,1 
7,136,1755 

BOO DATA 16,547,165.316,160, 

15,33,55,15,35,107,14,173,14 
3,14,540,1647 

810 DATA 84,163,8,170,160,1, 
38 , 186 , 855 . 1 73 , 143 , 1 4 , 1 63 , 15 
0,160.14,1887 

880 DATA 33,183,555,38,154,1 
3,76,41,10,76,834.15,163.169 
, 160,15, 1633 

B30 DATA 38,55,15,163,816,16 
0,15.33,55,15,33,107,14,173, 
150,14,1347 

840 DATA 301,36,808,6,33,166 
,14,76,30.10,801,33,303,6,17 
3,8,1469 

850 DATA 3.540,554,96,163,8. 
170, 160,0,38, 186,555, 173, 143 
,14,165,5047 

B60 DATA ISO, 160, 14,35, 189,5 
SS, 35, 509, 18, 76,80, 10. 130, 16 
3,53, 133, 1703 

870 DATA 1,163,83,133,80,160 
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,0,169,17,133,91,133,113,230 
, 1.23B, 1765 
56 B80 DATA 32,206,198,1,165,11 
2, 240, 3, 76 , 106, 12, 177 , 88, 200 
,203,88, 1917 
7? 890 DATA 240,94,162,1.165,88 
, 72 , 165 , B3 , 72 , 160 , 0 , 132 ,113, 
35,161,1745 
13 900 DATA 11,240,31,177,88,20 
0 , 209 , 88 , 208 , 13 , 201 , O , 240 , 20 
,201,555.2182 
3B 910 DATA 240,16,200,209,99,5 
40 , 11 , 32 , 40 , 12 , 232 , 224 , 31 , 20 
9,553,76,5085 
4F 920 DATA 170,11,104,133,89,1 
04 , 133, 88 , 160 , 0 , 224 , 1 , 208 , 10 
.177.88,1700 
41 930 DATA 201,0,240,28,501,25 
5,540,54,138,9,32,35, 13, 12,1 
77,88, 1690 
C6 940 DATA 32,13,12,32,161,11, 
205 , 508, 545 , 165 , 89 , 208 , 144 , 7 
6,24,12,1634 
5A 950 DATA 501,0,540,9,201,255 
, 240 , 5 , 200 , 209 , 88 , 208 , 149 , 1 6 
2,1,35,5500 
9A 950 DATA 161,11,540,11,209,8 
B , 508 , 7 , 232 , 224 , 31 , 208 , 245 . 5 
40,44,134,5590 
EB -370 DATA 92,201,0,208,6,169, 
160 , 5 , 92 , 208 , 19 , 201 , 25S , 20B , 
6, 169, 1999 
FE 980 DATA 182 , 5 , 82, 20B, 9 , 72 , 1 
69 , 224 , 5 , 95 , 32 , 13 , 12 , 104 , 32 , 
13, 1274 

24 990 DATA 12,165,99,240,3,76, 
164, 10,75,24, 12, 134,95, 165,0 
,134,1393 
BO 1000 DATA 93,72,32,161,11,24 
0 , 28 , 104 , 209 , BB , 72 , 208 . 22 , 16 
S,92,20B,1B05 
7A 1010 DATA 2,230,93,230,92,16 
5 , 93 , 201 , 31 , 20B , 23 1 , 165 , 82 , 2 
01,255,208,2497 
47 1020 DATA 225,198,92,165,93, 
9,128,32,13, 12, 155,92,32,13, 
12,104,1365 
AF 1030 DATA 32,13,12,165,89,24 
0,122,76, 164, 10, 160,0,230,68 
,208,2, 1511 
4F 1040 DATA 230,89,96,134,92,1 

34.113.162.0. 134.93.32.161. 1 
1,240,45,1766 

72 1050 DATA 177 , 88 , 200 , 209 , BB , 

208 , 1 3 , 201 , 0 , 240 , 34 , 201 , 255 , 

240,30,200,2384 
D2 1060 DATA 209,88,540,25,32,4 

0 , 12 , 165 , 95 , 508 , 2 , 230 , 93 , 530 

,92,165,1923 
OD 1070 DATA 93,201,31,208,514, 

165 , 95 , 201 , 255 , 208 , 508 , 19B , 9 

5, 165,93,9,5433 
1C 1080 DATA 96,35,13,15,165.92 

,32, 13, 12, 104, 133,89, 104, 133 

,88, 177, 1295 
IB 1090 DATA 99,32,13,12,32,161 

, 11 , 19B , 32 , 20B , 244 , 198 , 83 , 16 

,240, 165, 1B03 
4A 1100 DATA 89,240,14,76,164,1 

0, 160,0, 145,90,230,90,208,2, 

230,81,1939 
FC 1110 DATA 96,169,0,35,13,15, 

169 . 55 . 133 . 1 , BB , 169 , 1 1 , 141 , 3 
2,208, 1329 



D2 1120 DATA 96, 16S, 89, 501 , 55S, 

208,1,96,169,8,32,58,15,169, 

3,35, 1534 
6E 1130 DATA 59,15,96,133,116,1 

33, 115, 10,133, 117,160,0,132, 

114,164,114,1607 
8F 1140 DATA 177,89,200,132,114 

, 164, 115, 209, B8, 240, 1,96,200 

,132,115,196,2267 
BA 1150 DATA 117,208,235,169,25 

5, 133,112,258,104,96,94, 165, 

113,240, 3, 76, 234B 
DB 1160 DATA 228,11,76,233,10,1 

52,1,160,0,132,114,132,112,1 

64, 115, 132, 1783 
2F 1170 DATA 115,165,116,133,11 

7 , 1 64 , 1 14 , 177 , 88 , 200 , 132 . 1 14 

, 164, 115, 209.B8, 2511 
FD 1180 DATA 508,12,200,132,115 

,198,117,208,236,232,224.31, 

208,227,138,164,5550 
34 1190 DATA 116 , 195 , 8, SOB, 5, 9, 

64 , 32 , 13 , 12 , 177 , 88, 132, 115, 3 

2,13,1213 
IE 1200 DATA 12,164,115,200,136 

, 116,208,242, 160,0, 138, 166, 1 

16,224,8,240,230s 
F8 1210 DATA 8,133,555,10,54,10 

1 , 555 , 20B , 3 , 257 , 10 , 96 , 210 , 24 
,101,88,1753 
BF 1220 DATA 133,88,165,89,105, 

0,133,89,76,154, 10, 162,142, 1 

60,13,32,1561 
70 1230 DATA 55,15,32,144,255,1 

69 , B , 32 , 192 , 255 , 152 , 8 , 32 , 188 
,255,32,1844 
31 1240 DATA 90,13,133,88,32,90 
,13,133,89,173,7,9,240,11,16 

5,89,1375 
46 1550 DATA 505,9,9,144.4,533, 
16, 133,99,24, 165, 89, 105, 16, 1 

33,99,1462 
BE 1550 DATA 56,165,88,537,3,9, 
133 , 88 , 165 , 89 , 237 ,4,9, 133 , B9 
,32,1537 

B6 1270 DATA 90,13,150,160,52,1 

32,1,160,0, 145,88, 160,55,132 

,1,230,1539 
4A 1280 DATA BB , 20B , 2 , 230, B9, 36 

,144 ( B0,230,32,11S,13,165,8B 

,508,5, 1730 
FB 1290 DATA 138,89,198,88,173, 

6,9,197,89,176. 13, 208, 7 , 173, 

5,3, 1644 

EA 1300 DATA 137,88,175,10,165, 

BB, 141 ,5,9, 165, 89 , 141 , 6 , 9 , 15 

9,255,1713 
A2 1310 DATA 141,9,9.96,32,19.2 

3B, 170, 155, 144,74,74, 176,2, 1 

38,96, 15B3 
94 1320 DATA 104,104,98,32,115, 

13, 162, 123, 160,13,76,55, IS, 1 

69, B, 32, 1269 
01 1330 DATA 13S , 5SS , 76, 531 , 555 

,35,35, 32, 136, 73, 83,75, 32, 13 

7,82,82, 1334 
9A 1340 DATA 73,85,83,35,35,35, 

13,0,510,63,65,68,73,78,71,2 

57,1220 

9C 1350 DATA 46,97,66,13,0,162, 
247, 160, 13,32,55,15,32,143,2 
46,120,1447 

OB 1360 DATA 169,97,133,185,32, 
513 , 543 , 165 , 1B6 , 32 , 12 , 537 , 15 



5, 185,32, IBS, 2271 
F4 1370 DATA 237,159,1,133,98,1 
63 , 16 , 133 , 89 , 169 , 1 . 32 , 221 , 23 
7,169,8,1872 
94 1380 DATA 32,221,237,150,160 
, 55 , 132 , 1 , 160 , 0 , 177 , 88 , 160 , 5 
5,132,1,1759 
B4 1390 DATA 32, 551 , 237 , IBS, 8B, 
20S.S, 9, 208, 7, 165,89,205, 6,9 
,240, 1891 
CE 1400 DATA 9,230,88,508,222,2 
30, 89 , 208 , 51B , BB , 35 , 63 , 246 , 1 
69,13,76, BIBB 
SF 1410 DATA 210, 255,215, B2, 73, 
B4, 73 ,78, 71, 46, 46, 13,0, IBS, 7| 
0, 160,1638 
D5 1450 DATA 14,35,55,15,173,5, 
9, 133, 136,56, 173 , 6 , 9 , 533 , 16 , 
133,119B 

44 1430 DATA 137 , 166 , 136 , 35 , 505| 

, 189, 162, B8, 160, 14,32,55, 15, 

160, 1, 165, 1717 
OS 1440 DATA 137,240,16,500,54, 

165 , 136 , 533 , 553 , 1 33 , 1 36 , 165 , 

137,533,0,133,5341 
F5 14S0 DATA 137,508,236,155,171 

0, 163,0, 32,205, 183,162,36, 16| 

0,14,76,55,2061 
F5 1460 DATA IS, 13, 208 , 82, 73, 71| 

, 82 , 6S , 77 , 35 , 76 , 63 , 7B , 71 , 84 , 

75,1174 

5D 1470 DATA 58,35,0.35,194,89, 
B4 , 69 , B3 , 61 , 0 , 32 , 1 94 , 76 , 79 , 6| 
7,1150 

95 14B0 DATA 75,83,46,13,13,0,11 

69 , 0 , 133 , 199 , 35 , 96 , 16S , 169 , 0| 

,141,1333 
7E 1490 DATA 143,14,160,0,135,11 

24 , 195 , 0 , 2 , 240 , 17 , 500 , 174 , 14| 

9, 14,554, 17B4 
BC 1500 DATA 16,540,9,232,145,11 

49, 14, 157,149, 14,508,234, 173| 

,149,14,96,1996 
00 1510 DATA 4B, 49, SO, SI, 52, 53, 

54 , 55 , S6 , 57 . 4B , 49 , 50 , SI , 52 , S| 

3.B2B 

51 1520 DATA 54 . 32, SB , 229, 163, 81 

, 170, 160, 15,32, 186,255, 169, 2| 

, 162,53, 1754 
70 1530 DATA 160,15,32,189,555. 

32 , 192 , 255 , 32 , 231 , 555 , 169 , 8 , 

160,0.170,5155 
5D 1540 DATA 35,186,555,173,1491 

,14,165, ISO, 160,14,35, 189, 5S| 

5,35,195,555,5550 
2F 1550 DATA 162,8,32,198,555,51 

, 32 , 14 , IS , 96, 127, 133, BB, 32 , 1 

4,15, 1256 
10 1560 DATA 16B, 166,88, 152,32, 

205 , 189 , 169 , 32 , 35 , 510 , 25S , 32] 

, 14, 15,240, 1999 
BE 1570 DATA 5 , 32, 210, 555 , 50B , 5 

46 , 163 . 13 , 35 , 210, 255 , 20B , 513 

,76,24,15,2171 
AO 1580 DATA 32,507,255.170,165 

, 144 , 50B , 2 , 13B , 96 , 32 , 204 , 255 

, 159,8, 170,2255 
8B 1S90 DATA 32,195,555,32,231, 

255 , 104 , 104 , 169 , 45 , 160 , 27 , 32 

,210,255, 136,2242 
75 1600 DATA 208,250,163,13,75, 

210,255,73.48,134,8b, 132,89, 

150,0, 177,2082 
37 1510 DATA 88,240,6,32,210,251 
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S , 200 , EOS , 246 , 96, 32 , 55, IS, 32 
, 107, 14, 1836 

1620 DATA 173,149,14,240,46, 
201 , 4 , 208 , 244 , 162 , 1 , 32 , 101 , 1 
5.72,32,1694 

1630 DATA 101, IS, 170, 104,168 
,24,96,32,116,15,228, 10,96,1 
29, 133,92,1529 
OC 1640 DATA 32,116,15,5,92,95, 
1B9, 149, 14,232,201,58, 144,2, 
233,7, 15B5 
26 1650 DATA 41,15.96,162,174,1 
60,167.56,96, 197, 7B. 84, 69, 82 
,32,210,1719 
C7 1650 DATA 213.206,45,193,196 

,210.58,32.36,0,197,78.64,69 
,82,32, 1731 

1670 DATA 204,207,215,45,205 
, 197,205,58,32,35,0,13,204,7 
3, 78,75, 1847 
83 1680 DATA 69,82,58,13,39,36, 
39,45,32, 196,73,82,44,32,39, 
33,912 

1690 DATA 39,45, 195, 82, B5.7B 
,67,72,32,46,13, 13,0, 195, B2, 
85, 1129 

1700 DATA 78,57,72,73,78,71, 
32,58,32.0,198,73,76,69,78,6 
5, 1120 

F,a 1710 DATA 77,69,56,32,0,211. 

75 , 73 , 80 , 32 , 36 , 0 , 76 , 52 , 3 , 163 
,1037 

1720 DATA 96,29,162,0,189,0, 
16,157,52,3,232,224,192,208, 
245,76,1883 

1730 DATA 52,3,20B,21B,8B,32 
.63,246,169,13,76,210,255,21 
1,65,86,1995 

1740 DATA 73,79,71,227,46,96 
,218, 13,0,162,70,160,14,32,5 
5,15,1330 
47 1750 DATA 173,5,9,133,136,55 
, 173 , 6 , 9 , 233 , 15 , 133, 137 , 166 , 
136,32,1553 

1760 DATA 205, 1B3, 162,88, 150 
,14,32,55,15,160,1,165,137,2 
40, 16,200, 1839 
F3 1770 DATA 24,165,136,233,253 
,133,135,165,137,233,0,133,1 
37 , 20B , 236 , 152 , 2481 
F3 17B0 DATA 170,169,0,32,205,1 
89,162,96.150,14,76,55,15,13 
,20B,B2,1646 
66 1790 DATA 79,71,82,65,77,32, 
76,69,78,71,84,72,58,32,0,32 
,97B 

22 1800 DATA 194,89,94,69,83,51 
,0,32, 194.76,79,67,75,83,46, 
13,1245 

CC 1810 DATA 13,0,169,0,133,199 
,32,95,165, 169,0, 141, 149, 14, 
160,0, 1439 
74 1820 DATA 132,124,185,0,2,24 
0,17. 200 , 174 , 149 . 14 . 224 ,16.2 
40,9,232, 1958 

1830 DATA 142.149.14,157,149 
,14,209,234,173, 143, 14,96,48 
,49,50,51,1697 

1840 DATA 52, 53, 54, 55, S6, 57, 
48 , 49 , 50 , 51 , SB , 53 , 54 . 32 , BB , 2 
29, 1013 

1950 DATA 169,8,170,160,15,3 
2 , 166 , 255 , 169 , 2 , 162 , 53 , 160 , 1 



43 
7D 
3D 



BF 



CI 
7A 
06 




5,3B, 189, 1777 
OD I860 DATA 255 , 32 , 192 , 255 , 32 , 

231,255, 169,8, 160,0, 170,32,1 

B6, 255, 173,2405 
OE 1B70 DATA 149,14,162,150,150 

. 14 , 32, 189 , 255 , 32 , 192 , 255 , 16 

2,8,32,198,2004 
B4 1B80 DATA 255 , 5 , 32 , 14 , 15 , 96 , 

127,133,68,32,14,15,168,166, 
BB. 152, 1400 

71 1890 DATA 32,205,189,169,32, 

32 . 210 , 255 , 32 , 14 , 15 , 240 , S , 32 

,210,255,1927 
46 1900 DATA 209,246,169,13,32, 

210,255, 208,213, 76, B4, 15, 32, 

207,255, 170, B333 
42 1910 DATA 165 , 144 , BOB, 2, 138, 

96,3B,B04,BSS, 159,9, 170, 32,1 

95,255,32,2105 
D3 1920 DATA B31 , B55 , 104 , 104 , 16 

9 , 45 , 160 , B7 , 32 , BIO , B55 , 136 , 2 

OB.250,169, 13.236B 
ID 1930 DATA 76,210,255,73,48,1 



09 

47 

02 

23 

78 

93 

60 

BO 

BA 

FE 

57 

AD 

C4 

2B 

S3 

OF 

ID 

34 

DF 

2B 

33 

OF 

39 

15 



34, BB, 132,89, 160,0, 177,88,24 
0,6,32,1808 
1940 DATA 210,255,200,208,24 
5,96,32,55,15,32,107,14,173, 
149,14,240,2046 
1950 DATA 46,201,4,208,244,1 

62,1,32,101,15,72,32,101,15, 
170, 104, 1506 

I960 DATA 168,24,96,32,116,1 
5,228,10,96,129,133,92,32,11 
5, 15,5, 1307 
1970 DATA 92,96,189,149,14,2 
32 , 201 , 58 . 144 , 2 , 233 , 7 , 41 , 15, 
96, 162, 1731 

1980 DATA 174,150,157,56,96, 
197,78,84,69,82,32,210,213,2 
06,45,193,2052 
1990 DATA 196,210,58,32,36.0 

, 1 97 , 78 , 84 , 69 , 82 , 3B , B04 , 207 , 
215,45, 1745 

BOOO DATA 205,197,205.59,32, 
36 , 0 , 13 , 204 , 73 , 78 , 75 , 69 , B2 , 5 
8, 13, 1398 
2010 DATA 39,36,39,45,32,196 

, 73 , BB , 44 , 3B , 39 , 33 , 39 , 4S , 195 
,62,1051 

2020 DATA 85,79,57,72,32,45, 
13, 13,0, 195,82,85,78,57.72,7 
3,1058 

2030 DATA 78,71,32,58,32,0,1 

98 , 73 , 76 , 69, 78 , 65 , 77 , 69 , 58 , 3 
2, 1066 

2040 DATA 0,211,75,73,80,32, 
36,0,76,52,3,163,49, 16B, 0,18 
9, 1E00 

B050 DATA 0,15, 157 , 52 , 3 , B3B , 
224 , 192 , B08 , B45 , 76 , 5B , 3 , 0 , 9 , 
243,1712 

B060 DATA 234 , 0, 201 , 0 , 0, 0, 0, 
0,169,0,133,250,153,144,133, 
251, 1684 

2070 DATA 163,1,133,174,133, 
193 , 169 . B , 133 . 175 , 133 , 194 , 16 
3, BB, 133,252,2257 
2080 DATA 169,156,133,253,16 
0,0,177,250,145,174.230,250. 
208, 5,230, 251, 27BB 
2030 DATA 230 , 174 , 20B , 2 , 230 , 
175 , 155 , 250 , 137 , 252 , BOB , B34 , 
165 , 251 , 197 , 253 ,3191 
2100 DATA BOB, EBB, 163, B43, 13 
3 , 187 , 169 , 156 , 133 , 188 , 169 , 9 , 
133,193,169,0,2477 
2110 DATA 133,165,160,0,185, 
195 , 156 , 240, 6 , 32 , BIO , 255 , 200 
,20B,245,3B,E44B 
2120 DATA 207,255,240,251,20 
1,49,240,4,201,55,48,230,41, 
15,133,1B6,2357 
E130 DATA 76,234,245,147,17, 

1 7 , 73 , 78 , BO , 85 , B4 , 32 , 68 , 53 , B 
6,73, 1464 

2140 DATA 67,69,32,78,85,77, 

66,69,82,13,17,67,65,83,51,4 
9,380 

2150 DATA 32,47,32,68,73,83, 

75,61,32,56,32,79,82.32,57,5 
8,833 

2160 DATA 45,32,0,67,73,77,8 
0,65,67,84,73,82,0.0,0,0,757 

2170 DATA 0,0,0,E55,25S,E55, 
255,255,0,0,0,0,0,0,0,0,1275 




YOUR COMMODORE SERIOUS USERS GUIDE 
51 



LISTING 



Super Index 



Dig out those old magazines and get I hem organised 
with this super database 



K 



ave you ever spent fruitless 
hours sifting through a mountain of 
back-dated magazines, searching for 
a particular article, sub-routine or 
program? Now with Super Index 
and a little typing skill on your part, 
all this thumbing through pages can 
be a thing of the past. 

This database will enable you to 
select a subject from a cursor-driven 
menu and then tell you immediately 
the titles and page numbers where 
the subject is broached in your pile 
of magazines. Press the 'R' key. and 
you are returned instantly to the 
subject list, ready to make another 
enquiry. 

This high speed shuttling 
between subjects and magazine 
titles is possible because the data- 
base is committed to memory only 
once before you actually use the 
program. The system is designed 
this way so that the READ state- 
ment is not required to re-search the 
database or arrays. The resultant 
speed means that information 
comes to you as fast as Basic can 
print it on the screen. 

The program begins by defining 
two user-defined variables. The 
print limit (PL) is concerned with 
the size of the selection list dis- 
played on the screen. With PL set to 
20 you get the maximum display of 
20 items. If you wish, this can be 
reduced. 

The next variable involves the 
alphabetical sort (AS), and is simply 
the memory location for the 
machine-code sort. Though you may 
relocate the sort, you certainly can't 
omit it. 

The main task of determining 
the size and shape of the database is 
solved by reading all the data state- 
ments and concluding with values 
for DM (DiMension) and CL 
(CoLumn). 




What may have caught your eye gram and data information. Lines 
in the listing, is the isolated data 1760 to 1790 serve to format your 
statements that lie between the pro- screen displays: 



TL$(0)-1760 DATA C/MAGS 20MAY88 
TL$(1)-1770 DATA "MAG:" 
TL$(2)-1780 DATA "PAGE:" 
TL$(3)-1790 DATA* 



Title of the data base 
Headings for 
the information lists 
An end marker 



What is so important about these 
particular data statements? Well, 
the entire usable database is struc- 
tured on two parallel arrays. The 
first is isolated and contains the 
various subjects on file and is known 
as the A$() array. 

The second, which is two dimen- 
sional, contains the information 
you're looking for and is known as 
the B$(-,-) array. Its structure relies 
on the format defined by the above 



data statements (lines 1760 to 
1790). The aim of this particular 
database is to locate the exact edi- 
tion of the magazine plus the page 
number against any subject you 
have chosen from the subject list. 
For example, an article entitled MO- 
DEMS can be found in the March 
1988 edition of Your Commodore 
page 96. That precise information is 
written down as: 



I860 DATA MODEMS, YOUR COMMODORE MAR 88,96 
t t t 



AS<) 



B$(H) 



The beauty of a system using a 
two dimensional array is its sheer 
flexibility, consider adding the fol- 
lowing line: 

1765 DATA "VOLUME:" 
You could now go on to create an 
extra element in your database, and 
line 1860 could now look like this: 

1860 DATA MODEMS,4,YOUR 
COMMODORE MAR 88,96 



So if you store your magazines in 
folders or volumes, you could easily 
grab Volume 4, in this case, whip 
out the mag and flick through to the 
correct page. 

If you really wish to impress your 
friends, you can use the program for 
other purposes. Car performance 
figures could be yours at the touch of 
a button. Try these lines: 



1760 DATA CAR PERFORMANCE 


The title of your new database 


1765 DATA "0-60:" 


1770 DATA "ECONOMY:" 


Six statements to 


1775 DATA "POWER:" 


control six elements 


1780 DATA "SERVICE:" 


of the database 


1785 DATA "MAX SPEED:" 




1790 DATA* 


DON'T FORGET THE END 




MARKER 
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And a typical example for your 
database would be: 
1860 DATA FORD FIESTA, 
16.1 SECS,41 MPG, 
40 BHP.6000 MILES,80 MPH 
The only thing to remember is 
that your formatting statements 
(lines 1760 to 1790) must end with 
an asterisk (*), and that your data- 
base statements must contain the 
appropriate number of elements - a 
total of three in the case of Super 
Index, and six in the Car Perfor- 
mance example. 

With the database sized up and 
about to be committed to memory, 
it would seem appropriate to pre- 
pare a list directly for the screen, ie 
print A$(). But first think about the 
disadvantages this may have. Such a 
simple list would be chronological, 
in other words, in the order that it's 
read, not alphabetical. Perhaps you 
would consider an alphabetical-sort 
to* be a bit of a luxury, and I would 
agree if the database was small but. 
with anything larger than 80 to 100 
items, luxury takes on a new 
meaning. 

The second problem would be the 
lack of a condensed list. It would be 
far better if the list routine exam- 
ined itself for multiple entries and 
formed single entries in their place. 
For example, modems are a very 
popular subject and occur three 
times in the database I've provided. 
However, if 'Modems' is to be listed 
on the screen it need only appear 
once, any more would be un- 
necessary. 

The third problem is making a 
single item list seem intelligent. 
Each subject in the list needs to keep 
track of where it came from in the 
array and then it can instantly reveal 
the corresponding information. Se- 
lect MODEMS and you will be told 
that articles on this subject can be 
found in three separate magazines. 

How is all this achieved? The first 
trick is to reconfigure the A$() array 
so that each element includes its 
own subscript. For example, the 
flavour of the month. MODEMS, 
occurs at positions 1, 20 and 30 in 
the array, and what you have at this 
point is: 

A$(l)- "MODEMS" 
A$(20) = "MODEMS" 



A$(30) = "MODEMS" 

What you need is: 
A$(l)-"MODEMSl" 
A$(20) = "MODEMS20" 
A$(30) = "MODEMS30" 

The method I've chosen involves 
printing to and reading off the 
screen. Notice the OPEN 1.3 in line 
330. To see what's involved, exa- 
mine lines 540 to 640 and you will 
notice that I've formatted the print- 
ing on screen so that the variable (I) 
always begins four spaces from the 
end of each printed string, and that a 
colon(:) appears at the end of each 
string to minimise the string length 
to be read. In this example I've used 
a "-" to illustrate spacings. 

MODEMS 
Changes to MODEMS-20-: 
Which becomes MODEMS-20- 

All this can be observed as it 
actually happens by changing the 
value of POKE 53281 in line 330 to 
POKE 53281,11 (ie change the col- 
our of the screen). 

Now that the A$() array has been 
rewritten, a quick excursion through 
the land of machine code (SYS AS,A 
in line 680) is all that you need to 
return the array nicely sorted and 
ready for final processing before 
appearing on the screen. If you 
follow the simplified block diagram 
(Fig. 1) and read what is to follow, 
this last process will become clear. 

The overall task of the routine 
(lines 700 to 830) is to extract the 
stored information held by the A$() 
array, and totally reconfigure and 
condense that information and pre- 
sent it as the L$() array (the list 
array). This takes place while the 
A$() array is progressively nullified 
in order to save memory- The result- 
ing L$() array eventually exists as an 
alternating series of words and 
numbers, hence the double dimen- 
sion requirement expressed in line 
470. 

The relationship between the L$() 
lines is very important. Consider the 
following: 

L$(29) = "MODEMS" 
L$(30) = "1—20-30-" 

Take the 1 , 20 and 30 from L$(30) 
and apply them to the B$(-,-) array: 



As you can see. L$(30) holds the 
key to the whereabouts of the corre- 
sponding information in the B$(-,-) 
array for L$(29). Each of the 
numbers held by L$ is designated 
three spaces in the string, so the 
carrying capacity is the maximum 
string length divided by three (ap- 
proximately 85 locations). In our 
modems example you would need 
more than 85 articles entitled MO- 
DEMS before the program crashes 
with a "string too long' error. 

If you've checked the program 
listing (lines 700 to 830) against the 
block diagram (Fig. 1), you will see 
that I've had to tell a few white lies 
in order to save space in the dia- 
gram. Remember that the diagram 
serves only to show the essence of 
what is occurring when the program 
is running: the real details are in the 
program itself. You'll also notice 
that my first step (at line 700) is to 
nullify A$(0). In fact, when the A$() 
array is sorted, A$(0) is kept out of 
the alphabetical order because it is 
normally regarded by the sort-rou- 
tine as a reserved string (usually a 
title string identifying the array). As 
you can see, I've reserved my titles 
elsewhere in a separate array, TL$(), 
choosing to bypass A$(0) as part of 
my database. The overall result does 
not suffer in any way and the proce- 
dures are easier to follow with the 
database titles separated off. 

At last you're on to the screen. 
Lines 880 to 1020 deal with the 
subject list and, if you've paid atten- 
tion, you'll realise that only the odd 
numbered subscripts are printed to 
the screen - L$(l). L$(3), L$(5) and 
so on. The variable T is the funda- 
mental counter at this point and the 
mathematics involved is pretty 
straightforward; check lines 890 to 
9 1 0. All the user has to do is to select 
the required page (SPACE or 
SHIFT/SPACE), press RETURN, 
move the arrow cursor alongside the 
appropriate subject, press 
RETURN again, and the informa- 
tion (the magazine titles and page 
numbers) are printed on the screen 
immediately. 

Why is this process so speedy? 
Well, if you've selected MODEMS, 
it is displayed as number 15 in the 
subject list, and if you lake 15 and 




B$(0,1) -"YOUR COMMODORE MAR 88" :B$(1.1) = "96" 
B$(0.20) = "YOUR COMMODORE APR 88" :B$(1.20) = "39 
B$(0,30) = "YOUR COMMODORE DEC 87" :B$(U0) - "56 
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multiply it by two you get 30. If you 
then take L$(30), you should gel the 
string "1— 20-30-". Take the three 
values (1,20, and 30 - the variable 
'Z' in line 1090) and apply them to 
the B$(-,-) array and the process is 
complete. The value of 'Z' is ob- 
tained by taking a look at the 
numbers in the appropriate L$() 
string in jumps of three (P=P+3 in 
line 1070) and, in this way, three 
digit values can be catered for. Press 



the *R' key and you are returned, 
without delay, to the subject list 
ready for another go. The business 
of darting from one screen to 
another uses no memory, so you can 
play around without fear of crashing 
the program. 

Before you start key bashing, a 
few bits of information and advice. 
The program lines containing the 
colons only are purely decorative 
and are there to separate the various 



routines throughout the program. 
By contrast, the full stops in the 
DATA statements act as shorthand 
repeater statements, study the 
DATA statements carefully to un- 
derstand what is going on. As to the 
capacity, I've tested the existing 
database to approximately 640 
lines, without any problems - and 
that's more than ten items per 
monthly magazine for five years. 



PROGRAM: SUPER INDEX 



F3 

F4 

ES 

AO 

01 

26 

67 

OF 

FF. 

1ft 

88 

F7 

00 

41 

AC 
5B 

90 
BE 
31 

Be 

7E 
ED 



DC 
CA 
7D 

17 

25 

93 
64 



C9 
0D 
7B 
00 

6F 
9D 
D5 



B0 



10 REn — 

S0 REH *»" SUPER INDEX 
30 REn 

40 REn -•» WRITTEN BY ••• 
50 REn *•• 
60 REn *** N. HART. •** 
70 REn Mw W MtWWWM 

80 REn 
90 REn 

100 REn " 20 nAY 19BB • 
110 REn 
120 REM 
130 REn 

140 PL-20: REn PRINT LiniT 
150 i 

160 AS-50000;REH ALPHABET I CA 
L n/C SORT 
170 : 
160 : 

190 PRINTCHRSC83 ; P0KE532B1,1 

5 : POKE532B0 ,11: DPEN1 , 3 

200 PL-PL-2: lFPL>20THENPL-20 

210 PRI NT "C BLACK , CLR , D0WN93 " 

SPCC33 "PLEASE WAIT:" 

220 PRINTTABC33"CDOUN3THE IN 

DEX IS BEING SORTED" : L-2 : PRI 

NT-CHOnE.DOWNB] ":GOSUB1140 

230 : 

240 : 

250 PDKE532B0.0:POKE53280,2: 
READX: I FX<> 96THEN2S0 
260 READTLS: PRINT "C RIGHT , UP6 
, RUSON3 "TLS: CL-CL+1 
270 READTLS : I FTLS< > " • "THENCL 
-CL+1:GOTD270 
2B0 Dn— l:CL-CL-2 
290 PDKE532B0 , 6 ; REAOAS : Drt-DH 
+1:POKE532B0,0: IFASO-CEND Q 
F FILE3 "THENB90 
300 Dn-DH/CCL+23+1 
310 : 
320 : 

330 DinASCDm.BSCCL.Dm.LSCS 
•Dn) .TLSCCL+23 : RESTORE 
340 ; 
350 J— 1 
360 POKE53280.0: J-J+1:P0KE53 
2B0 , 5 : READX : P0KEAS+ J , X : I FX<> 
9STHEN360 

370 READTLSC 13: IFK CCL+23THE 
NI-I*1:GOTO370 



CB 
50 
55 
11 
ED 

30 

6A 



IB 
D2 

BE 

D9 
Bl 
34 



C5 
30 
94 



17 

15 
D9 
06 
A7 

IB 



DB 
94 

17 

18 

Bl 

B4 

El 



9B 
34 

9A 

84 
36 



TLS-TLSC03 
I-l:E-0 
POKE532B0.7 
READASCI3 

PRINT"CH0nE,D0tiJN I SPC39,U 



3B0 
390 
400 
410 
420 
P3" 

430 PRINT' , CCB3"ASCI3"CSPC43: 

CLEFTS] " I "CLEFT , UP3 " 

440 IFLENCASCI33>31THENPRINT 

" C BLACK , CLR , DOWN , R I GHT35TR I N 

G IN DATA TOO LONG ERRORCDOW 

N3 " : PRINTASC I 3 : STDP 

450 READBSCE, 13 

4B0 IFBSCE,I3-"."THENBSCE,I) 

-BSCE, 1-13 

470 E-E*l: IFE>CLTHENE-0:GOTD 
490 

4B0 GDTO450 

430 INPUTttl , ASCI 3 

500 POKE532B0.0: IFLEFTSCASCI 

3,133<>"CEND OF FILE3"THENI- 
I+1:GOTO4B0 
510 : 
520 : 

530 POKES3280,B : PR1NT"CCLR,B 

LACK , D0UN7 , R I GHT2 , RUSON3 ALPH 

ABETICAL SORT" 

540 SYSAS, A:POKES32B0,3: 1-1: 

X-0:PRINT"CCLR,CB,DOUN3" 

550 : 

560 POKE5^^B0,0:AICX3-"■ , 

570 POKE53280, 13:X-X+1 

5B0 IFLEFTSCASCX3,133-"CEND 

OF FILE3 "THEN710 

590 IFLEFTSCAS(X3,LENCASCX33 

-33-LEFTSC AICX+1 3 , LENC ASCX+1 

33-33THENB60 

B00 POKE532B0.4 

610 PRINTRIGHTSCASCX3,33":CL 
EFT3"; 

520 PRINT"CHOnE,DOWN3":LSCn 

-LEFTSC ASCX3 , LENC ASCX3 3-43 

G30 IFPEEKC 1 144 3-32THENINPUT 

#1,LSCI+13:GOTO690 

640 INFUTttl , YSC Y3 : IFYSCY3""" 

THEN6B0 

650 Y-Y*1:GOTO640 

660 PRINTRIGHTSCASCX3,33":CL 

EFT3 " ; :P-P+1: IFP-12THENP-0: P 

RINT 

670 GOTO560 

5B0 FORZ-0TOY-1:LSCI+13-LSCI 
■♦1 3*YSCZ3 : YSCZ3-" " : NEXT 
530 I-I+2: Y-0;P-0:PRtNT"CCLR 
, D0WN3 " : GOTDS60 
700 : 

710 1-1:POKE532B0.14:PRINT"C 



CLR , BLACK , D0WN7 , RIGHT2 , RUSON 
3CLEARING GARBAGECC83 " 
2F 720 PRINTFRECB3 : POKES3280,1S 
E5 730 : 

D9 740 PRINT"CCLR,BLACK,DOWN3": 
L-0 

72 750 PRINTTABC23I/2+.S:PRINTT 
ABC63 "CUP3 : : IFI/2* .5-NTHEN 
PRINT"CRUSQN3"; 
*C 760 PRINTLSC I 3 : IFPEEKC1144+C 

PL«403*63<>32THEN800 
7F 770 IFLSC I+23<> ""THENI=I+£ : L 

=L+1:GOTO750 
B2 780 L-L«-1:PRINTTABC103"*END 

OF SUBJECT LIST" " 
CD 790 PRINT"CHOnE3":6OSUB1130: 

L-L-1:GOTOB10 
D3 800 PRINT"CHOnE3":GOSUB1130 
BE B10 PRINT"CRIGHT,RUSON3CSHIF 
T3CSPACE3-PAGECRUSOFF,SPC3,R 
USON3C RETURN3 -ENQU I RY " 
0D 820 : 

Bl 830 POKE19B,0:WAIT198,1:C-PE 
EKC6313 

93 840 IFC-13THENLL-L:GO3UB13B0 

: PRINT: GOTO880 
28 B50 IFC-32ANDLSCI+2)<>""THEN 

I-I+2:GOTO740 
6F 860 IFC-160ANDIO2-L+1THENI- 

I-C2»CL*PL*-23 3 : GOTO740 
SB 870 GOTOB30 

31 880 P— 2: IFN-0THENI-CI3-CLL- 

23:GOTO740 
47 830 : 
BD 900 I 
AB 310 : 

AC 920 PR I NT "C CLR , D0WN2, RIGHT2 , 
RUS0N3 "LSCN»2-13 "CDQWN3 " : L-l 

92 930 P-P+3 
AB 940 IFP>LENCLSCN»233THENPRIN 

TTABC163"CUP3 . .END. .":P-ltBD 

TO1040 

DC 350 Z-UALCniDSCLSCN*23,P,333 

1A 360 PRINT"CUP3"; : FORTS-0TOCL 
:PRINTTABC53CHRSC1603 

FA 370 IFPEEKC 18633 <>32THENTS~C 
L:NEXT;PRINT"CUP3"i :L-L~1:GD 
TO 1040 

5S 380 NEXT 

BS 390 FORTS-lTOCL:PRINT"CUP3"; 

:NEXT:PRINT ,, CRIGHT43:CLEFT43 

"CP+23/3"CUP3" 
20 1000 L-L*1:PRINTTABC53TLSCD+ 

13; :PRINTBSCD,Z3: IFD-CLTHEND 

-0:GOTO1020 
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LISTING 



14 
4D 
BF 
IE 
BE 



12 
CE 

EB 

46 

40 
60 
SE 
17 
54 

F9 

5B 

43 

Eft 

24 
BE 
84 
BB 

Bl 

9E 

B7 

E7 

3C 

30 

B4 

□9 

BO 

9D 

FF 

9ft 



71 
6F 
65 
F9 



1010 D-D+1:6OTO1000 
1020 PRINT:L-L+1 
1030 6DTO930 
1040 6O5UB1130 

1050 PR I NT " C BLACK , R 1 BHT , RU50 
N3CSPACE3-PAGECRUSOFF,SPC15, 
RUSON3 C R3 -RESTART " 
1060 : 

1070 POKE19B,0:liJAIT198, 1:C-P 
EEKC6313 

1080 IFC"32THENFRINT"CCLR, DO 

WN2] " : P-P-3 : 6OTQ920 

1090 IFC-82THENI-C1)-CLL*2): 

GQTD740 

1100 GOTO1060 

1110 : 

1120 : 

1130 PRINT"CHDME3 " ; 

1140 PRINTTRBC285"CRUSDND5UP 

ER INDEX" 

1150 PRINT"CRIGHT,RUSON,UPD" 
TLS 

1160 PRINT"CRIGHT,S0,CY36,SP 
3 " 

1170 FORX-0TOL:PRINT"CRIGHT, 
CH] "SPCC36) "CCND " : NEXT 
1180 PRINT"CRI6HT,5L, CP36.S0 
3 n 

1190 RETURN 
1200 : 
1210 : 
122(3 



DflTft32, 115,0, 133,97, 169 
, 128 , 1 33 , 98 , 32 , 1 15 , 0 , 240 ,7,9 
,12B,133,9B,32,115 
1230 DATA0,16S,47,133,99,16S 
,48, 133, 100, 160,0, 165,97,209 
,99, 208,7,200, 16S.9B 
1240 □ftTft209,99,240, 20,24, 16 
0 , 2 , 177 , 99 , 101 , 99 , 72 , 200 , 177 
,99, 101 , 100, 133 
1250 DATA100, 104, 133,99, 144, 
221, 160,5, 177,99, 133, 102,200 
,177,99,133,101,208 
1260 DATA2, 188,102,198, 101. 2 
4,165,99, 105,7, 133,99, 165,10 
0, 105,0, 133, 100,165,101 
1270 DATA20B.2, 19B, 102, 19B, 1 
01 , 208 , 4 , 165 , 1 02 , 240 , 1 8 , 1 33 , 
105, 162,0, 134, 103, 134 
1280 DATA104, 165,99. 133, 106, 
165, 100, 133, 107,240,224,240, 
114,24,165,106,105 
1290 DATA3, 133, 106, 165, 107, 1 
05,0,133, 107,230,103,208,2,2 
30,104,160,2,177,106 
1300 DATA153, 109,0, 136,16, 24 
8, 160,5, 177, 106, 153, 109,0, 13 
6,192,2,208,246,170 
1310 DftTA56,229, 109, 144,2, IS 
6 , 109 , 160 , 255 , 232 , 200 , 202 , 20 
8,B, 165, 112, 197, 109 
1320 DATA144.10, 176, 34, 177,1 
13 , 209 ,110, 240 , 23B , 16 , 26 , 160 
,2, 165. 112,0, 145 
1330 DATA106 , 136 , 16, 248 , 160 , 
5, 185, 106,0, 145, 106, 136, 192, 
2.20B.246, 169,0, 133 
1340 DATA105, 165,101, 197, 103 
, 206 , 152 , 165 , 102 , 137 , 104 , 208 
, 146 , 165 , 105 , 240 , 138 , 96 
1350 
1360 
1370 

1380 PRINT"CRUSON,UP,RIBHT3M 



16 

3D 

D3 

32 
50 
8D 

62 

DD 

88 

35 

DC 
08 
65 
CF 
C5 
30 
07 

EB 

12 
08 
06 
7C 
6A 
SC 
FA 
38 
25 
88 
B6 
AC 
9A 
90 
8E 
IF 

51 
C8 

11 

45 
B6 
CB 
FB 

FC 
09 

AC 

70 
BF 

FE 

B7 

BD 

Bl 
BB 



QUE CRSRCRU5DFF3 CRUSONDCRD- 
RE9TART 
1390 PRINT"CH0riED"SPCC2B3 ,, CS 
PC3 , RUSON3 C S3-SAUEC D0UJN3 " 

1400 N-0:A=0:PRINT"CRIGHT23> 

■ 

1410 POKE138,0:UAIT19B,1:C-F 
EEKC631) 

1420 IFC-B2THENRETURN 

1430 IFC-B3THEN1550 

1440 IFA-LLANDC-17THENA-A-1: 

PRINT"CUP23" 

1450 IFA-0ANOC-14STHENA-A+1: 
PRINT 

1460 IFC-17THENA-A+1 : PRINT"C 
RIGHT2 , UP3 CLEFT, DOUIN3> " 
1470 IFC-14STHENA-A-1: PRINT" 
CRIGHT2 , UP3 CLEFT, UP3> 
14B0 I FC-1 3THENPR I NT " C R 
,UP3"; :BDTD1500 
1490 GOTO1410 
1500 INPUT#1,N 
1510 RETURN 
1520 
1530 
1540 

1550 PRINT"tCLR,DOWN33SAUE"C 
HRIC34)TLSCHRSC34V'CUP33" 
1550 PQKE631,13:P0KE19B,1:EN 
D 

1570 
1580 
1590 
1600 
1610 

1620 DATAC/MAGS 20MAY88 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 

1720 DATAMODEMS , YOUR COMMODO 
RE MAR B8,96 

1730 DATASUPER HOUSE,. ,99 
1740 DATABA9IC COMPILER, COM 
DISK USER MAR/APR 19BB, IB 
1750 DATAPROFESSIONAL PROGRA 
MMING, . ,40 

1760 DATftMULTI COLOUR ,.,14 
DATABASIC+, . ,20 
DATATAPE ARCHIUE, ..21 
DATALINK AND CRUNCH fl/C 
.22 

DATAMDNITOR, . ,24 
DATADISK LIBRARIAN II,. 



DATAC/MAGS 
DATA "MAG : 
DATA "PAGE; 1 
DATA* 



DATAPROGRAM COMPRESSION 



1770 
1780 
1790 
ODE | 
1B00 
1B10 
,26 
1820 
, . ,31 

1830 DATAMONITOR, . ,33 

1840 DATABYTINB INTO THE 651 

0.YOUR COMMODORE JAN 88,13 

1B50 DATALI5T PAUSE , YOUR COM 

MODORE APR 88, 14 

I860 DATACARTR I DGE-F I NAL CAR 

TRIDGE III, . ,18 

1870 DftTflCfiRTR I D6E-ACT I ON RE 

PLAY, . , . 

19B0 DATAflUTO START, . , 22 
1690 DATACLEARINB TEXT SCREE 
N ... 24 



ID 

AD 
BE 
AB 

13 

E2 
IF 

FC 
BE 

ES 
DD 
37 

62 



1900 DATATABULAT I ON ON SCREE 
N...30 

1910 DATAMODEMS, . ,39 
1920 DATAMUSIC, . ,45 
1930 DATAMAKINB GE05 BRITISH 
,.,47 

1940 DATAARTIFICIAL INTELL II 
ENCE , . , 59 

1950 DATAMUSIC, . ,65 
1950 DATAEXTENDED BACKGROUND 
S, . ,69 

1970 DATATftPE TURBO, . , . 
13B0 DATACP/M ASSEMBLY LANG! 
AGE, . ,70 

1990 DATAMUSIC, . ,75 
2000 DATAOLD ROUTINE,., 79 
2010 DATAMODEMS, YOUR COMMOD( 
RE DEC B7,56 

2020 DATA"CEND OF FILE3 " , , 

I I I I I I I I I t ) 1 1 l t I 
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COMMODORE PROGRAMMING 



All you ever wanted to know about your Commodore but 

were afraid to ask. 



programmers spend a lot of their lime sifting through 
piles of technical books looking for the address of a certain 
routine or trying to find POKE to perform a certain function. 

Now you can throw away your books, as on the following 
pages you will find a wealth of information about all of the 
popular Commodore computers. 

Advanced programmers will find the memory maps 



invaluable while both beginners and old hands alike will find 
the Hex converter, the hints and lips and much more, to their 
liking. 

Most of the information provided here is useful by itself. 
Some information, such as the addresses of routines within the 
ROMs, will be of more use when used together with a ROM 
disassembly. 



















Pointer, variable for 










FORPNT 


SOO'lS- 


aaiA 


73-74 






nEnORY nnp 


OF THE CB4 






004C 


75-76 


FDR /NEXT 












S304B- 


Y-save/ op-save/ BASIC 
pointer save 


LABEL 


HEX 


DEC 1 HAL 


DESCRIPTION 




1004D 




77 


Comparison symbol 
accumulator 


D6S10 


sooao 


B 


6510 Direction register 




SB24E- 


SOS 3 


7B-Q3 


Disc work area 


R6510 


ssaoi 


1 


6510 I/O. mniory and tape 




SBOSi- 


0056 


B4-B6 


Jump vector for functions 






S 


unused 




SBBS7- 


0068 


B7-96 


flise nuaaric work area 


BORftVl 


Doe 


3-t 


Float to fixed vector 


FOCEXP 


SOQ61 




37 


FACai - exponent 


ADRAY2 


10QB5-0006 


S-B 


Fued to Float vector 


FOCHO 


loos?- 


8065 


3B-1B1 


FACS1 - mantissa 


CHAP AC 


S0OO7 


7 


Search character 


FAC5GN 






IBS 


FACH1 - sign 


ENDCHR 


53009 


B 


String scan-quotea flag 


SSNFLG 


50067 




183 


Pointer: series evaluation 


tphpos 

UERCK 
COUNT 


SC309 
5300A 


9 
10 

11 


TAB column 

Flag LOAD-0, uERIFY-1 

Input ■ Be painter' 


BITS 


10868 




104 
105 


constant 

FACsl - overflou digit 


ARGEXP 




FACB2 - exponent 








■ subscripts 


ARQMO 


10OSA- 


■0060 


106-109 


FAC"2 - mantissa 


DWFLG 


seooc 


Ll 


Default Din flag: defeult-0 


ARG56N 


10B6E 




110 


FACS2 - Sign 


uaLTYP 


1007 □ 


13 


Data type; stnng"255, 


AR 1 5G*J 


10QGF 




111 


FACSl'S? sign conparlson 
result 


INTFLG 


1S08E 


» 


NuiMnc data type-. 


FACOU 


10070 




ui 


FACai - low order rounding 








f loat ing-fl, intea8T~l?9 


FBUFPT 


10071- 


0072 


113-114 


Painter: cassette buffer 


GARB PL 


1BC0F 


IS 


DATA 9CBK/LI5T Quote' 
Garbage collect flag 


CHPGET 


10073- 


DOHA 


11S-13B 


Subroutine: get next BASIC 

byte 


5UBFLG 


100 IB 


16 


Subseript'FN flag 












JNPFLG 


soon 


17 


Flag INPUT-B. GET-B4, 


















READ-152 


CHRGOT 


10079 




in 


Entrg point to get sane 


TWSGN 


saoia 


IB 


IAN eign/coapariaan 










bgta 








result 


TXTPTR 


S007A- 


■007B 


122-123 


Pointer current byte of 




10013 


13 


INPUT prompt flag 










BASIC 


LINNUT1 


sO01i-OC15 


SO- El 


Integer value 












TEMPPT 


10016 


22 


Pointer: temp string stack 












LASTPT 


50017-ooia 


23-24 


Laat temp string addcass 


RNOX 




•OOBF 


133-143 


RND seed value 


TEI1P5T 


SOC 19-0021 


es-33 


Stack for temp strings 


STATUS 


1B09C 




144 


Kernel I'D status tST) 


INDEX 


sqb22-ob2s 


34-37 


Utility pointer area 


5TKEV 


S0BS1 




145 


STOP key'RuS keg switch 


BESHO 




30-42 


Product area for 


5UXT 


1039<> 




146 


lining constant for tap* 








multiplication 


VERCK 


50003 




147 


Flag: LOAD-0. UERIFY-1 


TXTTAB 


sao2B-ao2C 


43-44 


Pointer start of BASIC 
( S08B1 ) 


C3P0 


S009'! 




148 


Serial bus, buffered cher 
flag 


vARTAB 


sob?d-0O2E 


45-46 


Pointer atart of variables 


BSOUR 


HOBS 




149 


Serial bus. buffered output 


ARYTAB 


1082 F -8830 


47-40 


Pointer start of arrays 










character 


STREND 


*ao3i-ao32 




Pointer end of arrays *1 


SYNQ 


10096 




150 


EOT tape Signal received 


FREIOP 


10033-0034 


st-se 


Pointer bottom of strings 




SO 03 7 




1S1 


Register save 


FRESPC 


S0O3S-0036 


S3- 54 


Utility string painter 


LOTND 


s.:.' .i 




152 


Number af files open/File 


"ErlSlZ 


S0037-D03B 


SS-S6 


Painter highest address 










table indev 








used !■■. BASIC 


DFLTN 


10099 




153 


Input device tdefault-B) 


CURL IN * 


10833-003A 


57-5B 


Current BeSIC line number 


DFLTO 


1009A 




154 


Output device Cdefault-3) 


DLDLIN 


1033B-003C 


59-60 


Previous BASIC line number 


PRTY 


1B09S 




155 


Tape char parity 


DIDTXT 


loaan-oasE 


61 -62 


BASIC statement for CONT 




50C9C 




1SG 


Flag: taps byte received 


DAILIN 


S3O3F-aO40 


83-64 


Current DATA line 


H5GFLG 


1009D 




157 


BASIC mode: Progroa-O, 


DOIPIR 


SBKU-8Z12 


6S-B6 


Current DATA address 










oiract-iea 


INPPTR 


10043-0044 


67-6B 


INPUT routine vector 


PTR1 


1009E 




15B 


tape pass l error log 


UARNAM 


10845-8846 


63-70 


Pointer: current variable 


PTR2 


S089F 




153 


pass 2 error log 








name 


TWE 


100A0 


-00A2 


1 60-168 


Real-time JifFy clock 


UARPNT 


10047-004B 


71-78 


Pointer: current variable 
data 




1C0A3 

SOOOH 




163 
164 


Serial bit count/EOl flag 
Cycle count 
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COMMODORE PROGRAMMING 





S0OA5 




1GS 


Tape sunc countdown 'Bit 












count 


7- . . 7 ■ ' 1 . ■ 


iaaAs 




IBS 


Polntar: taps 1/0 buffar 


1NB1I 


■Ma? 




167 


R5232 input bits/tapBCunte 












Idr/road count) 


BITCI 


«00aB 




isa 


RS232 input bit count 












tape urite ldr/rood count 


■ » r*U'J L 






163 


Flag: K5232 Start bit 




" * ' t - 




170 


K5c3c input outs buffer/ 












taps cscan/countec/ian 








171 


UC^U 4 nn* * ^ *~ 1 frit / 

HbcJe input paritg/ 












tape (write lor lenotn/read 












cbacksun ) 


5A[_ 




BBfffl 


175-173 


Pointer: tape buffer/screen 












scrolling 


EAL 




- obit 


174-17S 


Tope program snd address 


Cnpo 


5B0BD 


. 


17B-177 


Tope tlning constants 


TAPE1 


5UBU2 


-HI 3 


178-178 


Pointer •. start oF tape 












buffer 


fl i ns 






IK 


1 


RS232 out bit count/tape 












tlner enabled"! 


nxtbit 


saaas 




1B1 


R5B32 next bit to send/tape 












EOT 


ROllATA 






iea 


PS232 out byte buffer /read 












character error 


FNLEN 


SBQ87 




18? 




Current fllenane lengtb 


LA 


SB8BB 




1B1 




Current logical file number 


50 


nw b 




185 




Current eecondaru address 


rR 


I0BBA 




186 




Current device num&er 


FN ADR 


5303B 


■ODBC 


18? 


-iee 


Pointen filename address 


ROPRTY 


sobbd 




IBS 




RS232 out paritu'tape read 












input char 


rs^L K 


safflHE 




IBB 


Blocks left for tape 












read/urite 


NYCH 


IDiQF 




191 




Serial word buffer 


CA51 


SOB .• 




192 




Tape motor sensor 


STAL 




■floe 2 


133 


-194 


I/O start address 


HEniJSS 


100C3- 




19S 


-196 


■Carnal setup pointer/tape 












temp address 


" QTV 


- >' •" 




137 




Lest key. pressed 


NDX 


SB0C6 




138 




Keyboard queue length 


BUS 


%aoc? 




199 




Fleg: reverse chare: 












off-B 


I NDX 


eaa lb 




eao 




Pointer* end of line Tor 


LISP 


*CaC9- 


alien 


Ml 


-2B2 


Cursor rau, column at start 












or INPUT 


srox 


SOOCB 




203 




Current keu pressed, 












no key -64 


BLNSU 


SOBCC 




284 




Cursor blink phese' on-l, 












off-0 


H L ' i C I 


■M 




ess 




Cursor countdown timer 


□DHLN 


soact 




EMS 




Character at cursor 












position 


8LN0N 


SOBCF 




so? 




Cursor blink phase on/off 








ess 




Flag: INPUT fron acreen/GEI 












from keyboard 


PNT 


sbbdi- 


B8B2 


289 


-218 


Pointen current screen 












line address 


PNIR 


10BD3 




fill 




Cursor oolumn on current 
1 men 


QT5W 


SOBDi 




eie 




Flag i quote mode status: 












no quotes-0, in Quotes >0 


LNHX 


50PC5 




213 




Physical screen line length 


THLX 


SRC 06 




214 




Current ro*> location or 












cursor 




MM 




215 




Last inkeg/ checksum /buffer 












temp data 


1 '. - R i 


sea us 




216 




Number af inserts 












outstanding 


LDTB1 


S80D9- 


B0F2 


217 


-242 


Screen line link table 


USER 


S08F3- 


0OF4 


243 


-244 


Pointer: current cursor 












colour RAM location 


KEYIAB 


sOBFS- 


Q8F6 


245 


-246 


Keyboard decode table 












address 


RI8UF 


160F7- 


BBF8 


247 


-248 


Pointer: RS232 input burror 


RQBuF 


SD8F9- 


BOFA 


249 


-25B 


Pointer: RS232 output 












buffer 


FREK2P 


MWFD- 


OOFE 


261 


-254 


Free zero page area 


BAS2PT 


sOOFf 




255 




basic temp data area 




SB 108- 


BIFF 


256 


-511 


Processor stack 




*8lOB- 


B1GA 


256 


-266 


Float to ASC] I uork area 


Bad 


IB18B- 


B13E 


256 


-31B 


Tape error log 


our 


5 i. -.V- 


B258 


512 


-60B 


System input buffer 








6B1 


-618 


Logical file table 


FAI 


BSBfl 1- 


Q26C 


611 


-623 


File device number table 


SAT 




0276 


621 


-b.-HO 


Secondary address table 


KEVD 


M277- 


0268 


631 


-648 


Keyboard burrer 


m sib 


tO£91 ■ 


■BBS 


641 


-642 


Start of BASIC memory 


nCrtc i ^ 

1 1"3 J t 


s BSB 3 " 


0284 


643 


-644 


Top of BASIC memory 


T I "^QuI 






645 




Serial bus time out flag 


r "i l i - ' c 






646 




Current character colour 


GDZGL 






647 




Background colour under 












cursor 


HIBA5E 


»02 QB 




648 




Screen location page number 


XMAX 


102B9 




643 




Sue of keyboard buffer 








650 




Deanea V tree* t flvn* rH n F h 1 ea A 

kepoat key nag: dsrauit-o. 












repeat ell-128, 












no repeats'64 


KOUNT 


S028B 




651 




speed counter 


DELAY 


S028C 




6S2 




Repeat delay counter 


SHFLAS 


M2BD 




653 




Flag: SHIFT-1. Cfln-2, 












CTRL-4 


L9THF 


■Hn 




654 




Last shiFt pattern fleg 


KEYLGB 




0290 


OSS 


-BS6 


Keyboard setup table 












pointer 


nOOE 


*02S1 




657 




Flag: 0-dlsBble shift keys 












128-anable sMTta 


AUTODN 


■KBE 




6S8 




Scroll: enable-8 



riSlCDR 



SB293 



659 



668 



:ton 



Uector 



Uector ; 
line 



RS232 control register 

R5332 command register 
;mayn 

RS232 nan-standard baud 
rate 

RS232 status register 
image 

RS232 bits left to send 

RS232 baud rate 

RS232 lndeic to and of input 

buFfer 

RS232 page number Of Start 

of input buffer 

PS232 paga number of start 

of output buffer 

RS232 Index to end of 

output buffer 

IRO vector during tape save 
RS232 enable/CIA2 CNrll) 

interrupt control 

CIA 1 timer A control log 

during tape I/D 

CIA l interrupt log tape 

read 

CIA 1 timer A enable log 
tape read 

Screen line marker 
PAL/NT5C flag: 0-NTSC, 
1-PAL 
Unused 

uector: BASIC error 
messages ISE3BB) 
uector: BASIC warm start 
CSA4B3) 
BASIC crunch tokens 

t*A57C) 
BASIC print tokens 

(SA7LA) 
BASIC start ne*i 
CSA7E4) 
Uector, BASIC token 
evaluate CSAE86) 
Savo accumulator 
Save X register 
Save Y register 
Save status register 
U5R Function Juep command 
(S4C) 

L'SR address lou/high Form 
CSB24B) 

Unused 

uector: Hardware IRQ 
CSEA31 ) 
BRK interrupt 

<sTE66l 
NTlI 
1SFE47) 
uector: KERNAL OPEN 

(SF34AI 
uector: KERNAL CL05E 

(SF291) 
Uector. KERNAL CHKIN 

(»F2BE) 
uector: KERNAL CHXDUT 

(SF2S81 
Uector: KERNAL CLRCHN 

CIF333) 
Uector: KERNAL CKRIN 

<»F157) 
uector KCRWL CHROUT 

(SF1CA1 
Uector: KERNAL STOP 
CBF6E0) 
KERNAL BET IN 

C SF 1 3E ) 
KERNAL CLALL 
C1F32F) 
Uector: WARD stsrt 
(»FE66> 
KERNAL LOAD 

C1F4A5) 
KERNAL SAUt 
(BFSED) 

Unused 

Tape header buffer 
Unused 
Screen ram 
Unused 

Sprite block data pointers 

(0-7) 

BASIC Rfin (TKTTAB-1) 



50B8B-3FFF 3276B-4B9S9 Alternate: RDTI plug-in area 



SAP3B-BFFF 40968-49151 Basic iOn/Alternato RAPI 
SCBOB-CFFF 49152-53247 RATI memory 

SD8BQ-D82E S324B-53234 UIC Chip registers C6566) 

'Character SBt 
SDB2F-D3FF S3295-S4271 Unused /Char actor set 
SD4B8-D41C 54272-54238 SID chip (ESBn/Character 
. set 

SD41D-D4FF 54231-54527 Unused /Character set 
1D5CB-D7FF S4S2B-SS29S SID images/Character set 
SQB0B-OBFF 55296-56319 Colour nybble memoru 

/Character set 
SDC88-DCQF 56320-56335 CIA 1 Interface IRO C6526) 

/Character set 
snciB-DCFF 56336-56575 Unused /Character set 



nsinJB 


1B29S-8296 


661-562 


RSSTAT 


1B297 


663 


BITNUn 
BAUDOF 
RIDBE 


SQ29B 

IB 599- 32 3A 

SB29B 


6B4 

665-666 
667 


RI DBS 


•023C 


BBS 


RODBS 




663 


RODBE 


M29E 


670 


I RDT1P 
ENABL 


5029F -B2A0 
502A1 


671-672 
673 




i2C-r .'. 


674 




U2A3 


675 




sb2A4 


676 




SB2AS 
SQ2A6 


677 
670 


I ERROR 


SO2A7-02FF 
8B38B-0381 


B79-767 
76B-769 


ItlAIN 


S83B2-8383 


770-771 


ICRNCH 


S8304-838S 


772-773 


I0PL0P 


S83B6-8307 


774-775 


IQONE 


S83BB-B383 


776-777 


IEUAL 


S83BA-B38B 


778-773 


SAREQ 
SXREG 
5YREG 
5PREQ 
USRPDK 


SB3SC 
1B3BD 
S03BE 
SO30F 
S0318 


7B8 
781 
7B2 
7B3 
7B4 


US RAD D 


10311-8318 


7BS-786 


C1NU 


t0313 
S8314-B315 


7B7 

7BB-7B9 


CBINU 


5O316-0317 


'98-791 


NnlNU 


S831B-B313 


792-793 


I OPEN 


1031A-831B 


734-735 


I CLOSE 


I831C-031D 


796-797 


ICMKIN 


IB31E-831F 


7SB-79S 


ICXOUT 


10320-B321 


BOB-SB 1 


ICLRCM 


S0322-B323 


BB2-SB3 


I BASIN 


S0324-B32S 


B84-SB5 


IBSDUT 


SB326-E327 


BC6-807 


I STOP 


S03HB-B329 


BOB -BBS 


IGETIN 


50320-8328 


B18-811 


I CLALL 


M32C-B320 


B12-B13 


USRCmO 


S032E-032F 


B14-B15 


I LOAD 


SB33S-B331 


B16-B17 


ISAUE 


S8332-B333 


B1B-B19 


TBUFFER 
UlCSCN 


S0334-033B 
S033C-03FB 
S03FC-B3FF 
SB4BB-07E7 
S87EB-B7F7 
107FB-07FF 


B2B-B27 

828-1019 

1B20-1023 

1024-2023 

2B24-2039 

204B-2B47 




laeoa-SFFF 


204B-4B9S9 



uector: 



uoctnr: 



bectur 



Uoctcr: 



uectar . 



uactoi 
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tPOM POf 


SGS76-S6S91 


CIA 8 InterFace NHI iGS26> 


STOPNB 


13000 








Flag, Stop paint 








/Character ut 


UTEtlP 


sBBQC - 


B08F 


139- 


143 


Tamp data area 




•□□10-DOFF 


56592-57312 


Unusad/Cnarocter set 


STATUS 


10090 




111 




Kernel I/O stetua (ST) 




1EQ0B-FF8Q 


57314-65408 


KERNAL RDn/RArl memory 


ST KEY 


100S1 




145 




STOP key/RUS key Switch 




SFFB1-FPPS 


65109-85585 


KERNAL Jump table 'HAH 
nana ru 


SUXT 

UERCK 

C3P0 

BSOUR 


1003 5 
1009 J 

*C331 

10895 




116 
147 
118 

119 




Tieing constant For tape 
flag: LOAD-0. UERIFY-1 

f ■ ,i ■■ ° Qa* t tl 1 hi 1*4 rifttA 

flag 

Serial bus, character for 










SYND 






150 

1S1 




output 


MEnORV OF TMI CDnnODDRE 128 


10B9B 
10097 






EOT tape signal received 
Register save 










LDTND 


1089H 




155 




Number of files open/File 


LABEL 


HEX 


DEC I HAL 


DESCRIPTION 


DFLTN 


■BBSS 




153 




teble indea 

Input device Cdefault-B) 


□ssi a 


10008 


e 


6510 Direction register 


OFLTO 


1009O 




1S1 




Output device (default**3) 


RG510 


iqqoi 


i 


GS10 I/O, nemory and tape 


PRTY 


1089B 




155 




Tape cher parity 


BONK 


50008-0001 


2-1 


Jump call for SYS 


DPSW 


1009C 




1S6 




Flag, tape byte received 


FREG 


10005 


5 


.P register far SYS 


HSGFLG 


1O09D 




157 




basic mode. Program-8, 


AREG 


10006 


G 


.A register Far 3YS 


PTR1 


1003E 








D)rect-12B 


I REG 


ioaa > 


7 


.X register Far 5YS 




158 




lope pass 1 error lag 


YREG 


10B0B 


8 


-Y register for SYS 


PTR8 


1009F 




1S9 




pass 2 error log 


5TKPTR 


1B3Q9 


9 


Search character 


TirtE 


SO0A0- 


8BA8 


160- 


163 


Real-time Jiffy clock 


ENOCH R 


1000" 


10 


String scan-quotes flag 


R8D? 


100A3 




163 




Serial bit count/EDI flag 


TPT1PDS 


iboob 


ii 


TAB column 


B50UR1 


■MMH 




1G1 




Cycle count 


UERCK 


soooc 


is 


Flegi LDAD-O, UERIFY-1 


CNTDN 


100 A5 




165 




Tape Sync countdown/bi t 


COUNT 


SROOD 


13 


Input buFTer pointer/ 
» subscripts 


BUFPNT 


SO0A5 




IBS 




count 

Pointer: tape I/O buffer 


DlriFLG 


MMc 


11 


□•Fault Din rug* dera^u-a 


INBIT 


S00A7 




187 




RS333 input bits/tape<urito 


UALTYP 


1008 F 


IS 


Data type: trjtring-855. 
numenc-O 


BITCI 


10BA8 




168 




ldr/read count) 
RS332 input bit count 


INTFLQ 


SO0 ID 


IB 


Numeric data type: 

f losting-0, integer-138 


R I NONE 


10BA9 




IBS 




tape write ldr/read count 
Flag: RS332 start bit 


QAR8FL 


toon 


17 


DATA scan/ LI 9T quote/ 


R1DATA 


1000A 




170 




RS232 input byte buffer/ 








Garbage collect Flag 












tape (scan /counter/ ldr ) 


SUBFLG 


10013 


IB 


Subscript/FN Flag 


R I PRTY 


100 A B 




171 




RS333 input paritu/ 


INPFLG 


ioois 


19 


Flag, INPUT-O. DET-64. 
READ- 158 












tape (urite ldr length/reed 
checksum} 


TANSGN 




20 


TAN sign/comparison 


5ALH 


10BAC- 


OOAD 


178- 


173 


Pointer, tape bufFer'acreen 


CHANNL 


1301 S 




result 












scrol 1 lng 


21 


Current I/O channel 


EALK 


10BOE- 


BOAF 


174- 


175 


Tape program end address 


LINNUI1 


1001G-DB17 


SS-B3 


Integer value 


enpa 




QOB1 


176- 


177 


tape tming constants 


.JET1PPI 


sooie 


24 


Painter: temp string stack 


TAPE1 


SOITH-'- 


•E0B3 


17B- 


179 


Painter, start of taos 


LASTPT 


seeis-eoiA 


3S-36 


Last temp string address 












buffer 


TEMP3T 


1001 B -0083 


87-35 


Stack For tenp strings 


BITTS 


100B1 




1B0 




R5232 out bit count/tape 


INDEX 


10081-0827 


36-39 


Utility pointer area 












timer enabled-l 


RESHO 


lOOi •• .V 


18-11 


Product area Far 
mul tipl icat ion 


NXTBIT 


100BS 




101 




R5232 next bit to sand/tape 
EOT 


txttab 


10C2D-0Q2E 


15-15 


Painter start aF BA3IC 


BOOATA 


KM B6 




iae 




R5338 out byte buffer/read 


UARTAB 


1002 f -0030 


17-48 


Pointer start OF variables 












character error 


ARYTAB 


■i . ,v j 


'19 -SO 


Pointor start of arrays 


FNLEN 


100B' 




1B3 




Current filename length 


5TREND 


10033-0031 


si-sa 


Pointer end of arraya »1 


LA 


108BB 




lBt 




Current logical File number 


FRETOP 


10035-0036 


53-51 


Painter bottom aF strings 


SA 


100 B 9 




1B5 




Current secondary address 


FRE5PC 


10037-0838 


55- 5G 


Utility string painter 


FA 


10BBA 




1E5 




Current device number 


nxriErti 


50039 -00 3A 


57 -SB 


Painter, top dF Bank 1 
storage 


FNADR 
RDPRTY 


5?0BB- 
1CB8U 


0BBC 


187- 
1B9 


188 


Pointer; filename address 
RS232 out perity/tapo read 


CURL IN 


58C3B-0B3C 


59-60 


Current BASIC line number 












input char 


IXTPIH 


100311- CB3t 


81 -62 


Current byts or BASIC text 


FSBLK 


100BE 




190 




Blocks left for tape 


FNDPNT 


130 3F -0840 


E3-G4 


Pointer' item found by 
search 


flYCM 


100BF 




191 




raad/urite 

Serial «ord buffer 


OATLIN 


10011 -0BH2 


GS-GG 


Currant DaTa line 


CAS1 


1OOC0 




193 




Tape motor sensor 


OATPTR 


10013-0011 


57-68 


Current DATA address 


5 TALK 


i l" ^ ~ 1 


■ooc? 


193 


191 


I/O start address 


1NPPTR 


10045 -001 6 


G9-78 


INPUT routine vector 


flEDUSS 


1O0C3- 




195- 


136 


Kernel setup pointer/tape 


UARNAn 


10017-0018 


71-72 


Pointer: current variable 
name 


□ATA 


S03C5 




197 




temp address 

Tape reed/write data 


UARPNT 


18019-QO1A 


73-7*1 


Pointer: current veriable 
data 


BA 

FNBANK 


100C6 

(■ i? z ~ 




: -3Q 
193 




Bank for LOad/Saue/wERIFY 
Banh holding riieneme 


FORPNT 


•OOlB-OOiC 


7S-76 


Pointer: variable for 












t runntf \ 
CFWIUK / 








FOR/NEXT 


RIBUF 




BOC9 


208- 


■201 


n _ - & — . a * a^ .e* et ea aat 

Pointer, KS232 input buffer 


OPPTR 


1001D-OO1E 


77-7B 


Operator table 
displacement 


ROBUF 


BNCfl ■ 


0020 


801- 


202 


Pointer: RS33c output 
buffer 


OPMASK 


1B81F 


73 


Comparison symbol 


KEY TAB 


1 0 c z c 


■3 BCD 


281* 


'205 


Pointer: keyboard table 








accumulator 


inPARH 


J 1 1 C. '.: 


t c. c z 7 


206- 


207 


Pointer: String for Kernel 


DEFPNT 


18050-0051 


B0-B1 


Pointer: current FN 
descriptor 


NDX 


saoja 




808 




pRinn 

Ir-dei to keyboard buffer 


DSCPNT 


50058-0054 


85 -81 


Pointer: current string 
descriptor 


KYNOX 
KEYIDX 


:-->■..-. 
1BOD8 




203 
210 




Flag: Function keypress 
Inoew to function key 


HELPER 


S80SS 


8G 


Pleg- HELP/LIST 












string 


JHPER 


iaosh-wov 
■MSB-WWfl 


BG-B7 
BB-9B 


■steS JPlP to function 

Temp date eree for strings 


5HFLQ 


1D0D3 




811 




Flag; 5HIFT-1, CBrl-B, 
CTRL-1 


f ACEXP 


10063 


99 


FACttl - exponent 


5FDK 


100D1 




212 




Current key pressed 


FACHO 


' - - 1! BO! ' 


108-103 


FACm - mantissa 












SI- no key 


TACSBN 


10066 


101 


FAC'l - Sign 


LSTX 


10BD5 




213 




Last key pressed 


SGNFLS 


S0G63 


IBS 


Pointer^ series evaluation 
constant 


CRSW 






211 




Flag, INPUT fro* screen or 
ut I rroflt Kiyoonru 


ARBEXP 


100GA 


1QG 


FACii - siponent 


rtDDE 


10007 




815 




F lag r 40/80 coluans 


ARQHO 


•006B -QOGE 


ifl7-:ie 


FACaS - mentlssa 












O-'IO columns 


ARQSGN 


100GF 


111 


FAC«8 - sign 


GRAPHD 


■Mbfl 




216 




Current GRAPHIC mode 


ARISGN 


53078 


lis 


rACai/«8 sign comparison 
result 


CHAREN 






217 




rleg, uic Fetcn rrom 
■ Q " ■ ? " ~ 


FACOU 


1007 ; 


113 


FACMl - lou order rounding 




10011A- 


0BOI 


218- 


223 


Programmable key variables 


FBUFPI 


50078-0073 


114-115 


Pointer: cassette buffer 


PNT 


5O0E8- 


-08E1 


231* 


■225 


Pointer, screen line 


AUTINC 


10071-0075 


11B-117 


Increaent value for auTO 


USER 


100E2- 


-BOE3 


236- 


■227 


Pointer, current cursor 


flDFLAB 


1807B 


US 


Graphics area set flag 

tfl-no) 


SCTOP 


100 El 




22B 




colour RAti location 
Top line of uindou 


N02E 


10877 


119 


Sprite teep/xero counter 
for USING 


SCBOT 
SELF 


100E5 
100 Eft 




229 
238 




Bottom line of uindovi 
Left raw of window 


MuLP 


10078 


188 


Counter 


SCRT 


10BE7 




231 




Right row of window 


SYNTrlP 


10079 


is I 


Temp for indirect laeds 


LSXP 


1O0E8 




238 




INPUT start column 


□50 ESC 


5O07A-007C 


183- 121 


Painter: DSS descriptor 


LSTP 


10OE9 




833 




INPUT start line 


TDS 


5007D-D07E 


185-186 


Pointer, top of run-tiee 
stack 


I\DV 

TBLX 


100 E A 
100EB 




231 
235 




INPUT end line 
Cursor row 


RUNnQO 


' S0B7F 


127 


Flag? pragrae/direct modes 


PNTR 


SOOEC 




235 




Cursor column 


PAR3T3 


13090 


188 


Disk command syntax check 


LINES 


100 ED 




237 




flax lmum number of screen 


PAR3TX 


10881 


189 


Oiak command syntax check 












lines 


DLD5TK 


1O08E 


130 


COLUnS 


100EE 




23B 




fai i mum number of screen 


COLSEL 


10083 


131 


Current colour 












columns 


"ULII1 


10081 


iat 


Multicolour 1 


OAIAX 


180 EF 




239 




Current character for 


nuLTI2 


10385 


133 


Hu 1 t i col our 8 












printing 


FORGND 


100BG 


134 


Bit map foreground colour 


LSTCHH 


1O0FO 




210 




Previous character 


5CALEX 


10087-0088 


135-13G 


Scale Factor X 












printed (ESC test) 


SCALE V 


1OO89-O0BA 


137- 13B 


Scale factor Y 


COLOR 


1BOF1 




211 




Current character colour 
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tcdlip 


SBBF2 


543 


■JH VQU LI 1B1 U w L X Jul L Ul 








* 1 * J i / UiL 


RUS 


SC0F3 


hi* 


(-"Tan- Pt 1^ rhor jr f ai* b 










□TSW 


■ 


211 












1NSRT 


--,v- 


245 












1NSFLQ 


SBQF6 


346 


Finn* ' nn»»r* f rnrip 

1 f 4u + ~U w W k ■ <OBl \* nuyc 


LOCKS 


SOBF7 


547 


Finn- rtr " ~ ' 


5CPPU. 


IBBFB 


jiH 


^rrcptn nr*m 11 rl 1 *tisH 1 n 










BEEPEP 


S0BF9 


843 


CTRL-G disable 


FREWP 


S0QFA-C0FF 


250-255 


Froo jrartj pa^fi arna 


f buffer 


S01OB-B10F 


£56-571 


F 1 1 Gnanc corts t ruct ion ^rofl 


KENT 


HUD 


572 


DOS loop counter 


DOSF1L 


sain 


573 


Longth of DOS f i Icna^n 1 


00505: 


sou? 


574 


First drive number 


odsfia 


SOU3-0114 


575-376 


Adoreae oF DD5 Filename 1 


DQ5F2L 


ions 


577 


t flnnth nF nHH F \ 1 ^rifirftA P 

*m ' ^kj »" h/4 WWW X X + C ' 'Ql'l f fai 




SOILG 


37B 


fiflconct rtr i iif* nitfnhft*" 


D05F2A 


M117-8118 


579-280 


Aflflm^^ nf fins F 1 1 RtiAtnf* P 


DCSOFL 


SOI 19-B1 1A 


5B1-3B5 


StsiTk AddmLKTi for 










DO90FH 


SOI 1B-011C 


5B3-3B4 


End Bddroas For 6SnuE 


D05LA 


SOI ID 


5B5 


nCS 1 rwi k r~n 1 F 1 1 •* m mhpr 

*if+J — ) • UU X wB X b i • B 1 lUII'UH 1 


COSFA 


■f .' IE 






DC53A 


SOI IF 


PA? 


lpUi9 aBUUisjary auui asn 




soi?e 




f Wrflf 1 *nn * h 

UUJ 4 BbrUl U * B 1 *U *ml 1 


Q03BNK 


Sfll 31 
•wit i 




finC hmnL f\i 4 fTs Kur- 

- - - ' i ifuniuot 




S0122-8153 


390-591 


lilAnt t F 1 Af 

L * r n 1 i. . . . 


D I DC UK 


30134 


PAP 


nfl^i fl 1 rt Flan 
wJ J uiu i luu 


BMP 


SOI 25 


393 


■ Ua 1 >kBI U J ■ ■ ' ■ L J ' ' Hil'liJll V 


ENP 


; - | . . 


juu 

c*n 


PnitiPfir- IM I IIO h nrt nttnKar 


OQLR 


SSI 2"" 


39S 


r Ian* I jsS 1 Ljfr rt n 1 1 air 


FLOS 


SO 138 


BBS 




5UQ 


SO 189 


397 


1 T * ;! - - ™i in Far 


USCj 


SB15A 


89 Q 


4*LJII H^UUjf IBMl> 


LI EXP 


sai2B 


58B 


I -■ - 4 BnUulHIIL 


UN 


SB12C 


300 


Nt •nhfftr nF rl i rt \ t ■ hpfnrn 

IfUHUBL Ul U tt U X «d «4 wB4 Ul U 










CHSN 


SO 12D 


301 


tin i no liifiClFii F 1 An 


ur 


S012E 


303 


Hunt>9\~ oF Field cnereccors 








*-*mw t a Mm §t t»*b * jju t lib 


Nr 


S012F 


393 


tajmbsr of riold dsci 1 








placss 


PDSP 


SOI 30 


301 


Flag: •'- in USING riald 


FESP 


S0131 


305 


Flag: U5ING oipanant 


ETDF 


SOI 38 


306 


Switch 


CFQRn 


SB133 


307 


Field character counter 


SMD 


SOI 34 


3B8 


Sign number 


8LFD 


M13S 


389 


Flag. Slank or aeterisX 


BEGFD 


SO 136 


310 


Pnintor* tnn : pn i nn nf ! :n!il 


LFOR 


SO 137 


311 


Length oF format 


EUDFO 


SOI 38 


312 


Pointer, end of field 


STACK 


SOI 39-01 FF 


313-511 


SustBn etack 


BUF 


Sfli*n3-BP < iR 


513-6BB 


i t*tTi * nnit hi if r r nr 

U 3 b B<1> * * IJv k> UUl ■ B( 1 U( 








baci r a>nH fin+jTTnD 

0^3 IL D nU 1 tun I I UK 


FETCH 


sbpop 


iff ■ 


JUUI UULing. LUnV J, i C turn 








a ni* )i j hi 


; 


SB2AF 


AAT 










4i j jhi >p 


d^pape 


i " J; i 


7^^ 










a n*i i V> fi n L- 

J r-l(l ^ 


JSB»OR 


S02CD 


717 


mi! hrt Ann hfinlf 

.... - — 1 kl UBi IIV 


JrlPFOP 


S£E"E 3 


739 


IMP tr n Hnn nnnLr 

<J ■ IT LU HI lU UB 1 IPi 


l r'-r. 1 "" 
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S0386-B39E 


902-926 


Subroutine, get current 








BASIC byte 


INDSB1 


SB39F-83AA 


357-93B 


Subroutine: fetch Into 








RAH Q 


1NDSB2 


SO3AB-03B6 
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0A17 2585-5SB3 
2SB1 

25BS 

25B7 

35fla 

OB IF 2589- 3S91 
2593 

5S94 



Subroutine^ fetch INDEK5 
indirect 

Subroutine' fetch TITPTR 
indirect 

Floating point constant 
froa P0" 

BenK for PEEK/P0KE/9Y5 
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R5235 input burfer 


■85320 


S0DOO- 


ODFF 


3328- 3S83 


RS532 output buffer 
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Temp for OSH^PE 




IB00C- 
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0*t.faca af f t SSS^Lrnce on 




53296 12B mode system clock speed register 


RteNUtl 


1117?- 


1H64- 


r*mpm for RENuriBER 




kciac - 


D41C 54B72-543BO 5ID Chip Cas C64) 


LITFnP 


- + i i 


■1 1 71 












5152B nrsj primary configuration register 


ADRAVl 


S117A- 


117B 


117H- 


■1475 


Flag: convert FlOttting 

UU * » ' h kU A ■ 1 hliyBI 




ID5D1 
I DSfi? 


51529 nriU Preconf iguration register A 

51530 riru Preconf iguration register B 


■i D - _' 


S 1 1 7C ■ 


117D 


1*176' 


"4177 


F 1 flfl riif>U(irt i - ' n r r r tQ 

flMCing point 




ID 50 3 
■0501 


51531 nnu Preconf iguration register C 

51532 nnu PreconFlguratlon register 0 


SBATn 


0117E* 


1 1C5 


11 70 1 


■156S 
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54?B1 UDC address register 
55040 UDC data register 




PUTIUNV 


SleP 1 




-h . -. 




n*-» 1 1 m f~ / r\r^ irti4 Bi ■ i4iF\n 1 f hr 

USING 




tEOOC- 
CFC3E* 


FC3D 57344-E4573 Kernel ROM 
PEFF G4S74-65279 Unused POrl 


t nnnui ■ 


: ■ anil 

p 1 LBD 




<4Ri A 




1 a*x* *rrn.r nimtipr 




1FF00- 
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USB v«ctar coda 
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4fi1i? 
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i6S2 
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Output of 'Out oF manor y " 


TOWJAL 


S1238- 
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Output of error messages 
Break vector 


ATKTAB 


• 123F- 


-:etB 


1671 


•16B0 


CNulvLOPE ottack/docay table 




»0H'1 


S1D3' 


Ready vector 






- 1 pep 


]DQi 


I O - f- 1 


F*JlJ^1 ni mtni ^:r#»l t* pi**m 

Lf ' - L Ul L BuB LULU' L B 4 BBBB 

table 




*A180 
1A4SC 


m ru 

T r 
m ... 


Input mslting-loop 

Clear and inserting program lines 


ml"M 1 **IJ 


S L C3 J 


t 1 I>C" 
1 C3L 




1 rUU 


Ffji jFt flPF * .H auof r>rm t- oh 1 o 
t'rwttur t wavvi. ui m muio 




SA533 


S4F4F 


Tie BASIC program lines anew 


PULSLD 




-126G 


17B1 


■1710 


Pulse Mldtn iOw byte teble 




*n560 


S1F93 


Data a line into input buffer 




I> I [_ L! ■ 


1 C ' v 


I'll 


- ■* ' "Jfl 

1 ' CW 


ru ■ bw u i u li < ii i y ii sf w b u a b 




SA571 




Output of 'String too long' 


FILTHS 


•12'I- 




1721- 


■4726 


Filter values table 




SAS79 


B130A 


Change of a line into interpreter-code 


TRPFLG 


11276- 


fc li?78 


4726- 


-472B 


' . .1 interrupt *ianoiing 




1AE13 


05061 


Look For start address of a BASIC line 
BASIC-coamand NEW 


SSIKTL 


■ 1279 




4729 




Line For sprite-sprite 
collision IK0 handling 
(low) 




IOG5E 
KeSBf 
■A69C 


S51FB 
05254 
0S0E2 


BASIC-command CLR 

Set program pointer to BASIC start 

BASIC-command LIST 


3D I NIL 


1127A 




1738 




Line For sprite-data 

collision IRQ handling 
(loo) 




1A717 
SA712 
1A7AE 


1511E 
0SDFS 
01AF6 


Change interpreter code to command word 
BASIC-command FDR 

Interpreter loop, carries Out BASIC commands 


3PINTL 


S127B 




4731 




Line For tigntpen IRQ 
handling <lou) 




SA7E4 
SA7E0 


S4A9F 
01B71 


Execute next BASIC statement 
Carries out BASIC command 


5SINTH 


• 127C 




4732 




Line For sprite-sprite IPO 

Chi) 




SAB ID 
SAB2C 


05ACA 
OIBCl 


B»5 I C-COmaand RESTORE 

Interrupts program at pressed atop-kay 


GDI NTH 


I127D 




1733 




Line For spnte-data IRQ 

Chi) 




IAB3f 
5AB31 


ViBCI 
04 BCD 


BASIC-eomaand STOP 
BASIC-command END 


SPINTH 


tl27E 




4734 




Line For lightpen IR0 (hll 




1ABS7 




BASIC-command CONT 


I NT UAL 


1127F 




4735 




Flag: collision enabled 




1AB71 


S5A9B 


BA5IC-C0"mand »UN 
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*"B63 

I AS AO 

SA8D3 
SABEB 
1A906 
SA909 
1A939 
1A93B 
IB31B 
1A9GB 
SA9AS 
1AA90 
SAABS 
SAOAB 
SAB1E 
•AB3E 
SA84D 
SAB7B 
SABA5 
SABBF 
SABF9 
SAC8S 
1ACFC 
SADIE 

SADBD 
■A DBF 
1AD99 
SA09F 
SAE83 
S.AEAB 

5AEF1 
1AEF7 
SAEFA 
1AEFD 
SAEFF 
1AF08 
SAFSB 
1AF07 
SAFES 
SAFE3 

--SBB01 
SBOBB 
SB113 
SBUO 
1B1B5 
18194 
SB1A5 
SB1AA 
SB1B3 
SB1BF 
SB101 
SB34S 

me a 

SB34C 
SB37D 
1838: 
SH1I9E 
1B3AS 
5B3AB 
SB3AE 
1:' 333 

■b tei 

SB3F4 
SB465 
S847S 

SB4B7 
SB4F4 

sasee 

SBSBD 
S863D 
SB67A 
SBBA3 
SBGDB 
SB6EC 
SB78B 
*s~,-- 
IB737 
1B761 
SB77C 
4379c 1 
SB7BB 
SB79B 
S87AD 
1B7EB 
SB7F7 
SB90G 
1BB54 
SBBSE 
SBBuS 
1BR5B 
SB853 

SB3GA 
1B947 
IBS : K 

IB9BI 

SBSEn 

1BA3B 

sbasb 

SB ABC 
SBAB7 
SBAE3 
SBAF9 
SBAFE 

SBSPF 
■8813 
1998A 



S5SCF 
S590B 
SS.-'h? 

tsaaF 
ssaaa 

SS3AS 
SS3C5 
SS39D 
IS 3A 3 
1 " " -■ - 
IS3CE 
S553A 
SS540 
SSSSa 
SSSE5 

S3'4D 
S5G13 
SS64B 
SS665 
S569C 
SSBA9 

S57F4 
S77D7 
S77DA 
S770D 

S77EF 
S78D7 
S7BFE 
S793B 
17958 
17356 
17359 
179SC 
S795E 
S79GC 
■797B 
S4BF7 
S-iCBB 
S4C89 
SMCB6 
55B7B 

17AAF 

S7B4B 
S7B4A 

1B-.9A 
■84SF 
SB4A7 
38484 
S7CAH 
B7DE9 
17059 



SBC 70 
184 DO 
194H9 



184 7 A 
SB538 

■eg n 

MSAE 



1B65A 
19599 
S85EA 
19383 
1B70D 
S874E 
SB77E 
187 EB 
S8SBF 

sesic 

1B&4D 
5.BGGB 
SB66E 
IBS 7 7 
S87F1 
SBE4A 

seen 3 

S80C5 
S88ED 
S6C3D 
SBAOE 
SBBSE 
S8831 
1BA15 
---<-•■'- 
IB9BE 
B885D 
18965 
S939C 

■escn 

18A08 

18O0B 
S&A99 
S8AEC 
18B17 

S9B3S 
1BB3F 
IBBH9 
SBB4C 



(ins I C-command GOSUB 
BASIC-command GOTO 
BASIC-command RETURN 
8AS1 C-command qata 
Looks For next statement 
Cooks for next lino 
BASIC-command IF 
BASIC-COmmand REM 
BASIC-comsand ON 

Looks for address or a BASIC lino 
BASIC-COm»and LET 
BAS I C-command PPINJ" 
BA5IC-Comaand CMD 
BASIC-command PRINT 
Output string 

Output empty character (Or cursor right) 
Error handling for INPUT 
BAS I C-command BET 
BASIC-coaaand INPUT" 
BASlC-comsand INPUT 

Print INPUT prompt and handle input 
BASIC-co*«and BEAD 

Output ''extra ignored' and ''rado from start 

BA5IC-coiraand NEXT 

Evaluate regvanc avprassion 

Checks on -, .-eric 

Checks on string 

Output of 'Tupe inisaatch' 

Evaluate eipreeaion 

Get arithmetic tera 

Floating point constant For PI 

BaS I C-command NOT 

Goto term in parenthesis 

Chocks on parenthesis closed 

Checks on parenthesis open 

Chocks on comaa 

Checks on characters in accumulator 
Output of 'Syntax error ' 
Gets variable 
Set up references 
BASIC-command DR 
BAS 1 C-coemond BUD 
Coeparison operations 
BASIC-coamand Din- 
Search for or create variable descriptor 
Checks for letter 
Create new 7 bute descriptor 
Return addross of variaPle 

Calculates pointer to first array-elsaant 
Floating point constant -35768 
Change FAC to INTEGER 

Input and convert floating to integer 
FAC integer 

Search for or creete array 
Output of 'Bed subscript' 
Output of 1 illegal-quantity ' 
Calculates array sirn 
BAS IC-f unction FRE 
Integer to FAC 
BASIC-Functlon POS 
Checks on direct-node 
Output of 'Illegal direct' 
Output of 'Undef'd function' 
BASIC-command DEF 
Checks on FN syntax 
BOSIC-function FN 
BASIC-function STRS 

String adelniscretion, calculate pointer on 
string 

Establish string 

Allocate string memory space 

Garbage collection, remove unwanted strings 

Is Current string highest in nemoru? 

String concatenate '»' 

Trsnsfer string to memory 

String administration FRESTR 

Delete entry from temp string stack 

BASIC-runctlon CHRl 

BASIC-function LEFTS 

BASIC-runctJOn RIGHT* 

BASIC-function "IDS 

Pull string paraaatars off stack 

BASIC-function LEN 

Get string peraaetar 

BASIC-function ASC 

Gets byte term (0-555) 

BASIC-function UAL 

Gets address (B-G5535) and byte value (Q-55S) 
Change FAC to eddress-format (Range 0-65535) 
BASIC-runctlon PEEK 
BASIC-command POKE 
BASIC-command WAIT 
FAC - FAC - 8.5 

Minus FAC ■ constant (A/V) - FAC 

ninus FAC - ARB - FAC 

Plus FAC - constant ( A'Y ) - FAC 

Plus FAC • ARB - FAC 

Complement FAC 

Output of 'Overflow' 

Single byte multiply 

Floating point constent for LOG 

BASIC-runctlon IDG 

Multiplication FAC - constant (A'Y) • FAC 
Multiplication FAC - AffG - FAC 
are - constant (A/V ■ 

Add exponent FAC to Exponent of ARG 

FAC - FAC • 18 

Floating point constant 10 

FAC - FAC/ 18 

Divide ARO .-„ memory 

FAC - constant CA/Y) / FAC 

FAC - ARG 'FAC 

Output of 'Division by zero' 



%BB"B 189D4 FAC - constant CA/Y) 

SBBC7 SBBFS Accu»4 - FAC 

SBBCA 18BFC Accu*3 - FAC 

SBBDfl SBCOB variable - FAC 

18BFC S8C5B FAC - ARG 

1BCCC SBC 38 ARG - FAC 

1BCBF 18C3B Clove FAC to ARG 

SBC1B SBC47 Round FAC 

SBC5B 18C57 Get signs of FAC 

SBC33 SBCSS BASIC-runctlon SEN 

SBCS8 18CB4 BASIC-function ABS 

18CSB SBCS8 Compare constant (A'Y) with FAC 

1SC3B S8CC7 Changs from FAC to integer 

1BCCC SBCFS BASIC-runctlon INT 

SBCF3 18053 Changs ASCII to rioating point 

SB07E SBDB4 Get new ASCII digit 

1BDB3 18E17 Floating point constants Tor floating point to 
ASCI I 

1B0C5 S8E56 Output of line number at error message 

1BDCD 1BE38 Output Of positive integer number (0-B5535) 

1BDDD S8E45 Change FAC to ASCII Tormet 

SBF11 S6F76 Floating point constant 0.5 

1BF16 18FB1 Binary nun be r a for change of FAC to ASCII 

■BF71 SBFB7 BASIC-function 50H 

1BF7B FAC - constant (A/Y) to the power of FAC 

SBF7B SBFCI FAC - ARO to the power of FAC 

SBFB4 18FFA basic negation function 

SBFSF S380S Floating point constant for EXP 

SBFED S9033 BnSlC-functiDn EXP 



uic ch;p antiwEssEs snoca-*Da,« :- : i^iy-^vin 



ADDRESS 
HEX DECIMAL BIT 



DESCRIPTION 



SUilBE 


5354B 




Sprite 0 




X 


position (bits 8-8) 


111001 


53549 




Sprite 8 




Y 


position (bits B-8) 


111005 


535S0 




Sprite 1 




X 


pas 1 1 1 an 


1DD03 


S355I 




Sprite 1 




V 


position 


1DO04 


S35S5 




Sprite 5 




X 


position 


1DBB5 


S35S3 




Sprite 5 




Y 


pos 1 1 ion 


10006 


53554 




Sprits 3 




< 


pos i t l on 


1DC07 


53555 




Sprite 3 




Y 


position 


SCBB8 


saess 




Sprits 4 




X 


pos 1 t ion 


1D0O9 


S3557 




Sprite 4 




Y 


position 


1D0RQ 


53558 




Sprite 5 




X 


position 




53559 




Sprite 5 






position 


tnmz 


S35B& 




Sprite B 




X 


position 




S35S1 




Sprite E 




Y 


pos 1 1 ton 


SD00E 


S35S? 




Sprite 7 




X 


pos i t 1 on 


sncfli 


S35B3 




Sprite 7 




Y 


position 


SD018 


53564 




9th bit of 


sprite X co-ordinate 






0 


Sprite 0 












1 


Sprite 1 












5 


Sprite 5 


etc 


through sprite 7 



SD011 S35S5 uic Control Register 

7 Raster compare register. Bit 3 

G l~Enable extended colour text soda 

5 1 -Enable bit map mode 

4 l'Blank screen to border 

3 1-SS row text display. 0-54 row text 

display 

5-0 Smooth scroll to V dot position 
1D015 53566 Pastor compare register. Position of 

raster on screen 
SDZI3 53567 Light pen X position 

SD014 5356B Light pen Y position 

Enable or disable sprite 
• 1-Enable sprite 0 
1 1-Enablo sprite 1 

3 1-Enabla sprite 3 etc through sprite 7 
UIC Control Register 

4 1-nulticolour mode on 
3 1-48 Column text : 0-39 caloumn text 
5-8 Smooth scroll ta X position 

Sprite Uertical Expansion 

0 Expand aprite 8 Uertical ly 

1 Expand aprite 1 vertically 

6 Expand sptlte 5 vertically etc through 
to sprite 7 
UIC Memory Control 

7- 4 Uldeo aatrix base address 
3-8 Character set base address 

UIC Interrupt Flags 

7 Bet to any UIC IRQ condition 
3 Light pen triggered (bit 7) 

5 Sprite vs aprite triggered (bit 7) 
1 Sprite vs background triggered (bit 7) 
■ Raster compare triggered (bit 7) 

UIC Interrupt Switches 
3 1— Enable light pen interrupt 

5 l-5prite vs sprite enabled 
1 l-5prite va background enabled 

8 1— Raster coapsra enabled 
Sprite Priority Registers 

0-7 Each bit relates to corresponding 

sprite, l-Spr i te /background pr ior 1 ty 
Sprite multi-colour seleat 
B-7 Each bit sets corresponding aprite to 
multicolour 

8- 7 Sprite Horizontal Expansion 
Sprite vs sprite collision detection. 
If any sprits is touching another 
Sprite, the bits corresponding to both 
sprites are turned on. 

Sprite/background collision detection. 
If sprite has hit text or background 
character, the relevant bit is set. 



sncis -s:<5?9 



5C216 53578 



S.D817 S3571 



511018 53373 



1O01S 53373 



5DBIA 5337T 



SD01B 53375 



5110 IC 53576 



SD01D S3577 
1D01E 53578 



SD01F 53579 
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SDD23 


saaao 


Border colour 


SD821 


532B1 


Background colour 




53292 


Multi-colour ] 


10023 


'5 3 2-3 3 


nulti-colaur 2 






rVil 1 1 -colour 3 


10*25 


532BS 


Sprits eulti-colour 


iob2s 


&3sae 


Sprite multi-colour 




S32B7 


Sprit* 0 colour 


SD02B 


S32BB 


Sprits 1 colour 


n peg 


53269 


SpritH 2 colour 


SDB^A 


53290 


Sprite 3 colour 


1C3i -; 


53291 


Sprite 1 colour 


1DB2C 


53292 


Sprits 5 colour 


5nc?c 


S3293 


Sprits B colour 


1082E 


53291 


Sprits 7 colour 



USEFUL SPRITE GOTO STORAGE LOCOflDHS 



«B£C0-B2FE 
■831B-B37E 
SB1BB-B3BE 
S83CB-B3FE 



781- 766 
932- B31 
696- 9S6 
968-1022 



Sprite block n 

Sprite block 13 

Sprits block 11 

Sprits block 15 



SID CHIP ADDRESSES: S01BB-ID11C - -,T3aO) 



AE0RE55 

HEX DECirWL 

101BO S127e 

1C1Q1 51273 

SD1B2 51271 

1C1B3 S127S 

SDiMI 51276 



1IT 



3-! 



■MSB 5t277 



■D146 5127B 



13137 51279 

SD18B S12BB 

SD189 S12B1 

101 OA 51262 

SClOB 51293 



A-i 



ID'lOi: 51281 



1D1BD 51265 



IDlBE 512B& 

IDiOF 51297 

•D118 51268 

SDll 1 51299 

13112 5*1230 



3 C 



50113 51291 



SDill 51292 



■OH IS 51233 
SD116 51291 
■N17 5129S 



DESCRIPTION 

uoiee 1: low byte or frequency 
uoice 1; High byte of frequency 
Uoice li Lou byte of pulse width 
Voice 1: High byte of pules width 
uoice 1 Control KagistBr 
I-Rendoe noise 
1 -Pulse waveform on 
1- Sawtooth wavefors on 
t'Triangle »a«ef arm on 
1-Dlsable voice 1 

1-Ring "adulate voice 1 uith voice 3 
I'Synchronizs voice 1 with freq of 
vol oe 3 

l-5tert attack , decay ,iuttain 

B-Start release 

Uoice 1 At tack /decay 

nttack cycle duration 

Decay cycle duration 

voice 1 Suetain/releasB 

Sustain cycle duration 

Peleaae cycle duration 

Uoice 2i low byte of frequency 

Uoice 2; nigh byte of frequency 

voice 2: lou byte of pulse width 

Uoice 2: high byte Of pulee uldth 

uoice 2 Control Register 

1-Rendom noise on 

1-Pulse ueveforB on 

i-Sautooth waveform on 

I'Triangle wevefore on 

1-Qisabls oscillator 1. 

1-Ring modulate oscillator 2 with 

oscillator 1 

l-5ynchronize oscillator 2 uith 

oscillator 1 frequency 

1 -Start attack. decay. sustain 

B-Stert release 

Uoice 2 Attack/decay 

Attack cycle duration 

Decay cycle duration 

Uoics 2 Sustain/release 

5wStain cycle duration 

Release cycle duration 

Uoice 3, lou byte of frequency 

Uoics 3- high byte of frequency 

Uoice 3: low byte of pulse width 

Uoice 3: high byte of pulse width 

Uoice 3 Control Register 

1 "Random no; no on 

l~Pulse uavefore on 

1 "Sawtooth waveform on 

1-Triangle waveforn on 

l-Disable voice 

1-Ring modulate oscillator 3 with 
oscillator 2 output 

l-SynchronUe oscillator 3 with freq of 
oscillator 2 

1-Start attack, decay .sustain 
B-Start release 
uoice 3 Attack/decey 
Atteck cycle duration 
Decay cycle duration 



Uoice 3 5ustain/releasa 
Sustain cycle duration 
Release cycle duration 
Filter cut-off low nybble 
Filter cut-ofr high byte 
Filter Control 
Filter resonance 
1-External input to filter 
1 -Uoice 3 to filter 
1-Uoice 2 to filter 



SD119 S1297 

SDll A 51296 

SD11B 51293 

SD11C S13B0 



l -uoice l to filter 

Filter Uolume And node 

l-Iurn orr votes 3 output 

1-High pass filter on 

1-Band pass niter on 

1-Low pass filter On 

Output Values 

A/D convertor for paddle 1 

A/0 convertor for paddle 5 

Produces random number when voice 3 set 

to no i se 

Output of voice 3 envelope genarstcr 



KtV'JOl P"n FHUTI'.E!. 



CGI C12B Dsscription of Routine 
HEX HEX 

1E313 19CBB Series 1 polynomial calculation 

1E8S3 19B9C Series 2 polynomial calculation 

SEOBD 19190 Floating point constants for RND 

SEB97 18131 BASlC-functlon RND 

IE187 Output of 'Break' 

SE1CC S30DF BSOUI Output of character 

■CMS 190E5 BASIN receive a character 

1EH8 S9BEB CKOuT establish output-device 

IE11E SSBFD CHXIN establish input-device 

Kin 19109 GETIN get a character 

1E12A 9SB6S BASlC-CO-imand SVS 

SE1SG 19112 BASlC-coiMiand SAUE 

1E1B5 89129 BASIC-commanO UER1FY 

1E1BB 1912C BA5] C-command LOAD 

SE1BE 191BD BASlC-comaand OPE* 

SE1C7 I319A BOSIC-command CLOSE 

86101 191 "E Get parameters for L QAQ/uER I FY / SAUE 
SE2BB 191DD Get integer In X 

SE2B6 S91E3 Get currant char and check for line end 

SESBl 191 EB Check character Tallows comma 

SE219 191F6 Set parameter for OPEN/CLOSE 

■E261 S91BS BASIC-runction COS 

1E2SB 19118 BASlC-functlon SIN 

SE2B1 19159 BASIC-f unction IAN 

SE2E0 191B5 Floating point constents for COS/SIN/TAN 

1E2E5 191BA 2«p[ in floating point 

SE2EA 191BF 1/1 in floating point 

1E2EF 1S191 nore constants for CDS/5IN/TAN 

1E30E 191B3 BASlC-functlon A IN 

1E33E 191E3 Floating point constants for ain 

SE37B S1B83 BASIC Mil jump-in 

IFJIBB 11D3F Error messags handler 

1E391 11D23 BASIC cold start 

1E3A2 11279 Copy oF the CHRGET routine 

1I3BA Start value for the RND function 

1E3BF 11815 Initialize RAPI For BOStC 

1E117 11267 Tab 1 b of BASIC vectors 

1E153 11251 Load BASIC vectors 

1EH5F 111BB nessages of the opereting syatea 
1E1EB 1C3F1 Waits Tor Coemodora key 
1E1EC Constents Tor R3"e- tieing 

1FSBB Gets BnsIC-address of CIA or uia 

1ES0S Gets scroen format lino/column 

SE5BA SCC6 A Set oursor or get Cursor position 
1ES16 1C07B Screen reset 
lESil 1C112 Clear screen 
1E5S6 1C1S8 Cursor home 

i. J 5 oa Initialiis video controller 

SESBl SC6AD Get character from keyboard buffer 

SE5CA Waiting loop for keyboard input 

1E632 5C29B Got a character from the screen 

SEBBl SC3FF Checks for quota 

•SEE Hu Calculate "SB for line starts 

1EBDA table or colour codes 

IrOIA 1C3A6 Scroll screen 

1P9CB SCiBO Shift lino up 

SE9FF 1C1A5 Clear screen line 

1EA1C IC7E5 5et character and colour on screen 

Calculete pointer on colour RAfl 
1EA31 SFAGS Interrupt routins 
1EAB7 Keyboard prompt 

Si.BIH Checks on SKI FI, CTRL and CBH keys 

1EB79 SCBfiF Pointer on fay board decoding tables 

SEBB1 IF ABO Decoding tables 

1EC11 Chacka on control character 

IHl-'J Decoding tables 

1ECBS 1E2C Constants for video controller 

1ECE7 'Load icr) Run tcr>" 

lECfB 1CE71 L5B tables or screen starts 

1E009 1E3BB Sand IALX 

IE DOC 1E313 Send LISTEN 

SED10 1E3E2 Output of byte on I EC -bun 

1EDB3 Send secondary address for LISTEN 

1EDC7 Send secondary address for TALK 

SEDEF 1ES1S Send UNTALX 

1E0FE 1ES2B Send UNLISTEN 

*EE13 1EF5C Get a byte from the lEC-bus 
1EED3 One millissBCond delay 

SCEB8 1E5FF Output RS232 

1EF1A 1E68E Calculete number of R9232 date-bits 

•Fflli 1E75C Output an RS232 buffer 

■PMB 1E7CE GET OF R5232 

SFOAi Set timer For 1EC time-out 

1F3BD Error massages Of the operating system 

1F128 1F71E Put out messages 

1F157 1EFB6 BASIN get a character 

ifica 1EF79 BSOUI output a character 

SF2BE 1F1BG CHXIN fixing of the input-device 

SF2SB IFHC CHKOUT fixing of the Output-device 

1F291 IF166 CLOSE 

■fSeV Look for logical file number 
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SF31F 

SF34A 
IF43E 
sFSAF 
SFSOa 
SF500 
■TBBF 
SFB9H 
SFBOD 
1F6E1 
SF6ED 
SFGPB 

1F7BA 
■FTDB 
SF7D.7 
1F7EA 

trasu 

•FBI 7 
SFB£E 
SFB3B 
5FB11 
SFBHA 

von 

1FBGB 
SFOBE 
SF8E1 
t - < 

E. ■ 

«FB«6 
1FBCD 
SFCBB 
0FCCA 
1FCD1 
SFCOB 
*FCE2 
SF DO? 
SFDIO 
SFD15 
*FD30 

'.' r D5C 

1FD9B 
. SFDF9 
tFEOB 
*FEfl7 
SFE1B 
sTEIC 
SFE21 
IFE5S 
SFE34 
1FE43 
SPECS 
SFFlB 



srEEc 
SEFBD 
SF56S 



SFSFB 
SF6SE 
SF6SS 
1EABF 

SEBOO 
SES18 



SC9SM 
SE9BE 
tE9CA 

SE9E9 
1.E5FZ 
5E9F8 
SEA1S 
SE919 
SEA7D 

*EAEB 
SE05A 
IE DBG 
SED90 
SC207 
SEEBB 



Searching Tor TUB 
'Load ing/weri Tying ' 



*Fo-IO 

5 Ease 



5et File parameter 
CLALL closes all I/O channel- 
□PEN 
LOAD 
Output 
Output 
HUE 

Output 'Saving Filename' 
UDTW Increase running tiee 
Bat E1N 
Sot time 
last stop-key 

Put out error messages of the operating system 

Head program header of tape 

Write header on tepe 

Bet Start address oF tape Buffer 

Set start and end address of the tepe buffer 

Look for name on tape-header 

Increase tape DufTer pointer 

Waits for tape key For reading 

asks for tepe keg 

waits for tepe keg For writing 

Head block of tape 

Load program ofF tape 

Write tape buffer to tape 

write block or progree on tape 

wait for 1/0 end 

Checks on atop keg 

Interrupt routine for tape read 

Set bit counter for serial output 

write one bit to tape 

Interrupt routlna for tape write 

Set IPO vector 

Switch off tape drive 

Checks on reaching of and address 

Increase address pointer 

RESET 

Checks on ROn in seOCO or SAOCO 

Ron module identification 

Set or get hardware ana 1/0 vectors 

Table of hardware and I/O voctors 

Initialise work memory 

Table of IPO vectors 

Set parameter for file names 

Set pera«eter for active File 
Get status 

Set flag for messages af the operating system 
Set status 

Set timeout Flag for lEC-bus 
Set Dr gat pin-upper limit 
Set ar get RAn- lower li»it 
W11 routine 

Constants for R5S35 baud rate 
Interrupt handler 



CBH »E P'IPL JUHP TABLE 



SFF84 

SFFB7 

SFFBa 

SFFBD 

SFFBO 

*FF93 

SFFSG 

1FF99 

■iFF!iC 

1FF9F 

SFFA5 

SFFdS 

SFFAB 

SFFaB 

1FFAE 

SFFB1 

SFFB4 

SFFB7 

1FFBA 

SFFBD 

SFFCB 

1PFC3 

SFFC6 

SPFC9 

SFFCC 

SFFCF 

1FFD2 

SFFDS 

1FFDB 

■FFDB 

IF FOE 

SFFEl 

SFFE4 

SFFE7 

SFFEA 

1FFED 

»FFFQ 

SFFF3 

SFFFA 



CONTENTS 



Jnp 
jnp 
JnP 
J np 
jnp 
jnp 
jnp 
jnp 
jnp 
Jnp 
jnp 
jnp 
jnp 
jnp 
jnp 
jnp 
jnp 
jnp 
Jnp 
Jnp 
jnp 
jnp 
jnp 
jnp 
jnp 

JMP 

Jnp 
JMP 
Jnp 
Jnp 
Jnp 
jnp 
Jnp 
jnp 
Jnp 
jnp 
jnp 
jnp 
JnP 
JnP 



• F0A3 
SFD5Q 

■F015 
SF01A 
SFE1B 
SE0B9 
SETJC7 
IFE25 
SPE34 
SEAB7 

* E L ,_- 1 

SEE13 
SEDDO 
SEOEF 
SEDFE 
SEDDC 

SPED? 

SFEQO 

1FDF9 

(S031A) 

CS031O 

CS03LE) 

(JO 3201 

SO 322 

< SQ351 * 

SF49E 

SFSOD 

SF6E1 

SF6D0 

(S032OJ 

I S835A i 

■F69B 
swat, 
IE50A 
SE500 
SFE13 
SFCE2 



PURPOSE 

Initialize CIA's 
Clear or check RAn 
Initialise 1/0 
Initialize I/D vectors 
Set status 

Send LISTEN so condarg address 

Send TALK Seeondarg address 

Set/get RAn end 

Set 'get RAn start 

Seen keyboard 

Set lEC-bus time out flag 

Input for IEC-bu9 

Output to lEC-bus 

Send UMTALK 

Send UNLISTEN 

Send LISTEN 

Send TALK 

Get status 

5et File pa mooter 

Set Filename parameter 

»F3in OPEN 

sF29i close 

sf2CE chrin set input device 
SF?5Q CEOUT set output device 
1F333 CLPCH 

IF157 BASIN input character 
SF1CA BSOuT output character 
LOAD 

SAME 

Set time 
Get tine 

SF6E0 Scan stop-key 
*F13E GET 
s' .VI CLALL 
Increase time 

SCREEN get number linn end columns 
Set/get cursor position 
Get start OF I/O element 
Nni vector 
RESET vector 





SCREEN 


nini.N ceeee: 




UeluB to POKE 


for each Dolour: 




LOW NVBBLE 


HIGH NVBBLE 




COLOUR 


UALUE 


UALUE 


ni II T I -cm mis 


Black 


B 


8 


6 




1 


16 


9 


Ped 


2 


3S 


10 


Cyan 


3 


IB 


11 


Purple 


1 


51 


IB 


Green 


S 


80 


13 


Blue 


G 


96 


14 


Yellow 


7 


118 


15 


Orange 


B 


i as 




Brown 


3 


114 




Light red 




16D 




Dark grey 


11 


176 




nid grey 


IS 


192 




Light green 


13 


eM 




Light blue 


11 


S54 




Light grey 


15 


5tB 




where to POKE 


colour values for each 


mode; 




BIT DR 






rtJDE CD 


BIT-PAIR 


LOCATION 


COLOUR UALUE 



Regular text 


0 


53281 


Low nybble 






"t J 


Colour nemory 


Low nybble 




nulticolour 


00 


53281 


Low nybble 




t«>t 


01 




Low nybble 






10 


53583 


Lou nybble 






11 


Colour memory 


nulticolour 




Eitondod 


00 


53581 


Low nybble 




colour text 


01 


535B5 


Low nybble 




(111 


10 


53583 


Lou nybble 






11 


53284 


Low nybble 




Bitmapped 


0 


Screen memory 


Low nybble 


Clti) 




1 


Screen memory 


High nybble 


(111) 


nu 1 t l co I our 


00 


53281 


Low nybble 


cm) 


bitmapped 


01 


Screen nemory 


High nybble 


(nt) 




10 


5creen memory 


Low nybblo 


tiiu 




11 


Colour memory 


Lou nybble 




CI) For all modes, tho screen border colour is controlled 


by POKElng 


5^80 


•iith tho low nybbls 


colour value 





Cli) In extended colour mode, bits 6 1 7 of eech byte of 
screen memory serve as the Bit-pair controlling 
beckground colour. Because only Bits B-S era available 
Tor character selection, only characters with screen 
codes e-83 cen be used in this node. 

(Ill) In the bitmapped modes, the high and low nybble colour 
values srs ORed together and POKad into the 
SAnE LOCATION in screen meeory to control the colours 
of the corresponding CELL In the bitmap. Far eaample, 
to control the colours or cell o or the bitmap, OR the 
high and law nybble values end POKE the result into 
location O of screen memory. 



Coemsnd: COLOR source, colour 



SOURCE 

Nu*1 BE R SOURCE 

0 40-calunn background colour 

1 Foreground Far graphics screen 

2 Foreground Tor multicolour 1 

3 Foreground For nulticolour 5 

4 40-coluen border (text and graphics) 

5 Text colour Tor 40- or BO-coluen screen 
B B0-caluan background colour 



13-CCLUn'J nODE 



COLUHN "ODE 







COLOUR 




UALUE 


COLOUR 


UALUE 


COLOUR 


1 


Black 


1 


Black 


2 


White 


2 


White 


3 


Red 


3 


Red 


4 


Cyan 


1 


Light cyan 


S 


Purple 


5 


Light purple 


G 


Groan 


6 


Light green 


7 


Blue 


7 


Dark blue 


□ 


Yellow 


a 


Light yellow 


a 


Orenge 


9 


Dsrk purple 


10 


Brown 


10 


Brown 


n 


Light red 


11 * 


Light red 


15 


Dark grey 


12 


Oark cyan 


13 


nedlun grey 


13 


nediue grey 


14 


Light green 


14 


Light green 


IS 


Light blue 


15 


Light blue 


16 


Light grey 


16 


Light grey 
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STANDARD CB" TOKENS 



HEX 


□EC 




MP V 


UtL 


TOKEN 


HEX 


□EC 


TOKEN 


130 


32 




Cut 


79 


0 


19E 


158 


SV5 


iei 


33 


I 




an 

w 


D 

r 


SBF 


159 


□PEN 


133 


34 






Bl 


0 


SAO 


160 


CLOSE 




35 


ja 


: 


BS 


R 


1A1 


161 


SET 


534 


36 


S 


c ; 

»3 J 


oi 


9 


1A3 


163 


NEW 


s?s 


Jr 


* 


154 


84 


I 


1A3 


163 


TABC 


UC 


JO 


■ 


155 


65 


U 


SA4 


164 


TO 


S37 


M 

-J J 


■ 


156 


86 


u 


SA5 


165 


FN 


588 


in 


f 


157 


B7 


u 


1A6 


166 


5PC( 




41 




15B 


SB 


X 


1A7 


167 


THEN 




U3 
1C 




159 


B9 


Y 


1AB 


16B 


NOT 


— * " 


IJ 


* 


ISA 


90 


z 


SA9 


169 


STEP 


sit 


UU 
»T 


* 


15B 


91 


C 


1AA 


170 


- ADD 


ii ,_ 


«•<; 
* j 




5 St 


93 


c 


1AB 


171 


- niNus 


*5E 


46 




«U 


93 


3 


SAC 


178 


■ multiply 


SSF 


47 


f 


•CP 


94 




IAD 


173 


/ DIUIDE 


138 


4B 


m 


■i <~ r 


QC 

33 


L .ARROW 


1AE 


174 


* POWER 


131 


13 






lea 


END 


1AF 


175 


AND 

Oft 


S3? 


60 


g 






FOR 


SB0 


176 


133 


5j 


j 


SB3 




NEXT 


1B1 


177 


' GREATER 


134 


6? 


u 

1 


SB3 


131 


Data 


1B3 


17B 


- EQUAL 


535 


53 


a 


SB4 


133 


I NpUTl 


1B3 


179 


< LESS 


S .11: 


54 


B 


vac 


133 


INPUT 


SB4 


ISO 


5QN 


137 




/ 


165 


134 


□in 


1B5 


101 


INT 


138 


56 


Q 


»«/ 


1 JS. 


READ 


■ BG 


IBS 


AB5 


53S 


57 


a 

o 


S9B 


136 


LEI 


IB7 


183 


USR 


13A 


56 




cue 


137 


GOTO 


IBS 


1B4 


FRE 


I'M 






ISA 


138 


RUN 


1B9 


1B5 


POS 


13C 


60 


< 


1SB 




pr 

IT 


9BA 


IBS 


SQR 


S3D 


61 




SBC 


140 


RE5I0RE 


IBB 


1B7 


RND 


S3E 


68 


> 


16D 


141 


G05UB 


SBC 


IBB 


LOG 


S3F 


63 


? 


SSE 


148 


RETURN 


1BD 


IBS 


EXP 


S10 


G4 


B 


SBF 


143 


RET1 


SBE 


ID 2 


COS 


S4i 


65 


A 


190 


144 


STOP 


SBF 


191 


SIN 


143 


66' 


B 


191 


145 


□N 


SCO 


198 


TAN 


It 3 


67 


C 


193 


146 


MAI T 


SCI 


193 


ATN 


S44 


66 


0 


193 


147 


LOAD 


SC3 


194 


PEEX 


' IMS 


69 


e 


134 


14B 


SAUE 


SC3 


195 


LEN 


S46 


70 


F 


195 


149 


UEPIFV 


SC4 


19G 


STRS 


•47 


71 


6 


186 


150 


DEF 


SCS 


197 


UAL 


S48 


75 


H 


197 


151 


POKE 


SC6 


19B 


ASC 


S49 


73 


'I- 


S9B 


158 


PRINT* 


SC7 


199 


CKRS 


S4A 


74 


J 


199 


153 


PRINT 


SC8 


300 


LEFTS 


S4B 


75 


X 


ISA 


154 


CONT 


SCS 


801 


RIGHTS 


S4C 


7E 


L 


19B 


1S5 


LIST 


SCA 


308 


mas 


140 


77 


n 


19C 


156 


cm 


SCB 


303 


BO 


14 E 


76 


N 


19D 


157 


DID 





C13B EXTENDED TOKENS 



HEX 


DEC 


TOKEN 


HEX 


DEC 


TOKEN 


HEX 


DEC 


TOKEN 


sec 


304 


RGB 


100 


881 


PUDEF 


SEE 


3 38 


01 RECTORY 


SCO 


80S 


RCLR 


IDE 


883 


GRAPHIC 


SEF 


839 


DSAUE 


SCE 


806 


reserved 


SDF 


333 


PAINT 


SFO 


840 


DLOAO 


SCF 


307 


JOY 


1E0 


334 


CHAR 


SF1 


341 


HEADER 


SDO 


300 


ROOT 


SEI 


38S 


BOX 


SF3 


843 


SCRATCH 


1D1 


809 


DEC 


SE3 


336 


CIRCLE 


SF3 


343 


COLLECT 


S08 


310 


HEX! 


SE3 


887 


Q3HAPE 


SF4 


844 


COPY 


103 


811 


ERRl 


SE4 


388 


53HAPE 


SF5 


845 


RENAflE 


104 


813 


INSTR 


1ES 


839 




SF6 


346 


BACKUP 


SD5 


813 


EL5E 


SE6 


330 


LOCATE 


SF7 


847 


DELETE 


IDS 


314 


RE5UHE 


SE7 


331 


COLOR 


SFB 


848 


rt'lWBL?. 


SD7 


315 


TRAP 


IEB 


838 


5CNCLR 


SF9 


849 


KEY 


1DB 


316 


IRON 


1E9 


333 


SCALE 


SFA 


350 


TON I TOP 


■03 


817 


TROFF 


SEA 


334 


HELP 


1FB 


851 


USING 


IDA 


316 


sauu: 


SEB 


335 


DO 


SFC 


858 


UNTIL 


SOB 


319 


UOL 


SEC 


336 


LOOP 


1FD 


3S3 


WHILE 


SDC 


330 


AUTO 


SED 


837 


EXIT 


IFE 


8S4 


reserved 



CBtaBB DOUBLE BYTE TOKENS 



SCE 


Followed by: 














HEX 


DEC 


TOKEN 


HEX 


DEC 


TOKEN 


HEX 


DEC 


TOKEN 


108 


8 


POT 


105 


5 


RSPP05 


10B 


8 


XOB 


103 


3 


BUMP 


106 


6 


RSPPITE 


109 


9 


RWINOP 


104 


4 


PEN 


107 


7 


RSPCOLOR 


SOA 


10 


POINTE 


SFE 


followed by: 














HEX 


DEC 


TOKEN 


HEX 


DEC 


TOKEN 


HEX 


DEC 


TOKEN 


SO? 


8 


2.v,i; 


18E 


14 


APPEND 


SIB 


S7 


BOOT 


S03 


3 


FILTER 


S0F 


IS 


□CLOSE 


SIC 


38 


WIDTH 


104 


t 


PLAY 


110 


16 


BSAUE 


S1Q 


39 


SPRDEF 


SOS 


5 


TEnPO 


5)1 


1? 


BLOAD 


HE 


30 


UUIT 


see 


6" 


HQUSPR 


S18 


ie 


RECORD 


HF 


31 


SPRDEF 


so? 


7 


SPRITE 


S13 


19 


CONCAT 


S80 


38 


QUIT 


SOB 


B 


SPRCOLDR 


S14 


80 


OUERIFY 


131 


33 


STASH 


SOB 


9 


RRE6 


SIS 


31 


□CLEAR 


S33 


34 


FETCH 


S8A 


ie 


ENVELOPE 


S16 


33 


5PRSAU 


S83 


35 


5WAP 


SOB 


il 


SLEEP 


SI 7 


83 


COLLISION 


S84 


36 


OFF 


see 


13 


CATALOG 


SIB 


84 


BEGIN 


S3S 


37 


FAST 


SOD 


13 


DOPEN 


119 


85 


BEND 


S36 


36 


SLOW 








S1A 


86 


WINDOW 









1541 DISK URTUE - USEFUL HEriQRY LOCATIONS 



DOS ADDPE5S 



HEX 


DEC I riAL 


SOO0O-SO7FF 0-3047 


SO0O3 


0 


soaoi 


1 




8 


10003 


3 


!..-??■' 


4 


locos- ooo : 


6-7 




1 8-B 


SBOOA-003I 


1 10-11 


SOCOC-OOOt 


1 18-13 


S0DOE-DQOF 


r 

•4 


SOD! 3-00. j 


1 18-19 


1Q014-001S 


i 30-31 


3 JU 1 b - u £ . 


88-83 


53080-0031 


33-33 


10030-0831 


48-49 


■I [4 r 1 -, H 
3' L *J _ _ 


57 


*' * ■ 


SB 


- 


El 




63 


ertn ta 3 


67 


>UIT1 ' 


71 




73 


+ * ^ ■ I 


74 


i i";v.-. i 


SI 


lWe3b3 


105 




106 


S005F-OD70 


111-118 


10077 


119 


S807Q 


180 


S 0 G 7 1] 


131 


fi C C " i 


138 


■! *~ t r 
» t *j ,_ 


184 


S007D 


185 


SO07F 


187 


SOQHO 


188 


10061 


189 


SPC33 


130 


60083 


131 


S00B4 


138 


S0085 


133 


SOOBB-00BD 


139-141 


S0094-0095 


148-149 


S0099-DO9A 


153- 1S4 


soosn-oosc 


1SS-1SB 


S009D-009E 


157-158 


SOOSF-OBAO 


159-160 


SOOAJ -30O8 


161-163 


S0OA3-OOA1 


183-164 


SOOA5-0EAG 


165-166 


S00B5-00BA 


1B1-186 


lOOBB-OOCO 


187*138 


SOOCI-OOCB 


193-198 


SOOC'-OOCC 


199-804 


SBODi 


318 


108DS 


313 


500DG 


314 



SOfliK 
SOOE? 
S0OF9 
10100' 
S38CC- 
■i ; 

1D3S8 
S0853 
1085A 
10871 
S037B 
S083? 

^V'KI- 

S0885- 

S88FA- 

104 03- 
10500- 



0145 
03?B 



oes'i 

08B9 
C3FS 
03FC 
03FF 
04FF 
B5FF 
06FF 
07FF 



S0S0O-FFFF 



i-i7Fr 

11BB0-1BOF 
HBI0-1BFF 
HCO0-1COF 
•1C1B-C0FF 
1C100-FFFP 



815 
331 
349 

856-335 

513-553 

5B5 

600 

681 

G08 

688 

633 

663 

G10-644 

64S-64S 

785-781 

763 -7B1 

768- 1033 

1034-1879 

1880-1535 

1536-1791 

1793-3047 

8049-65535 

8048-6143 

6144-6159 

6168-7167 

716B-71B3 

71B4-49407 

4S4CB- 65535 



DESCRIPTION 
DOS RATI CHI P 

Caiknand code For buffer 0 
CQfimand cade For bufFer 1 
- a - J code for r..; 8 
Command code for buffer 3 
Conrnand code for buffer 4 
Track and sector For buffer 0 
Track and sector For buffer 1 
Trac* and sector for buffer 3 
Track and sector Tor DuFFer 3 
Track end sector for buffer 4 
ID for drive 8 
ID For drive 1 
Current ID 

Flag for head transport 
BuFfer pointer For disk 
controller 

Constant B - mark for beoinninn 

of date block Header 

Parity for data buffer 

Drive number for disk controller 

Buffer numbBr for disk controller 

NuBfiar of sectors per track far 

formatting 

Constant 7 - for beaming of 

date block heedar 
Stack pointer 

Step counter for Heed transport 
Actual track number for 
formatting 

Step sue Tor sector division 
C-18) 

Number OF read attempts (5) 
Pointer to address for n and 8 
comirands 

Device number* 130138) For LISTEN 

Device number- S40IB4) For TALK 

Plea Tor LISTEN (I/O) 

Flag for TALK Ct/Oj 

Flag for ATN from serial bus 

receiving 

Flag for EDI from serial bus 
Drive number (0) 
Current track number 
Current sector number 
Current channel number 
Current file number 
Current secondary address 
Current dete byte 
Work storage for division 
Actual buffer pointer 
Address of burrer 0 ISO30O1 
Address of bufFer 1 CS8400) 
Address of buffer 8 (S0SO0I 
Address of buffer 3 (10500) 
Address of buffer 4 CS0780) 
Painter to input buffer SO30O 

Pointer to buffer error message 
(1020S) 

Record nunber LO, block nueber LO 
Record nueber HI, block nueber HI 
Write pointer for REL File 
Record length for REL file 
Pointer in record for REL file 
5lde sector number 
Pointer to data block In side 
sector 

Pointer to record in REL file 
file type 
Buffer number 
Stack 

Buffer Tor commend string 

File type 

Record length 

Track side-sector 

Sector side-sector 

Length of input line 

Number of File names 

File control method 

Track or e File 

Sector or a File 

Buffer for error messages 

Number of BLOCKS FREE 

BuFFer 0 - main work buffer 

Bufrer 1 - disk directory 

Buffer 3 - user buffer 

Buffer 3 - disk directory 

Buffer 4 - Bah map 

DOS POD CHIP 

Unused 

IEEE bus controller 6588 
Unused 

Drive controller 658? 
Unused • 

Diek operating systee routines 
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1511 DISK ERROR HESSA3ES 
AND THEIR CAUSES 



The Following list contains the error messages reenc 1 ise ■■ I j 
tng 1511 DOS. 

Note that TT and SS denote Track and Sector respectively . 



ERROR NUnflER 

H, an, aa, oe 

58, READ ERROR. TT , SS 
SI , READ ERROR, TT. 55 



55.REA0 ERROR, TT , SS 



55. WRITE EPPDR. TT.SS 



56. WRITE PROTECT DN.TT.SS 



57.REA0 ERROR, TT.SS 



as, WRITE ERROR. TT , SS 



59. DISK ID nl5nATCH.TT,5S 



30 , SYNTAX ERROR ,011,00 



31 .SYNTAX ERROR ,00, 00 



35, SYNTAX ERROR , 00 . 00 



31, SYNTAX ERROR, 02. 00 



DESCRIPTION 

The last disk operation was error 
free or no disk access has been 
node since the lest error massage 
was read . 

The 'header' of a block ues not 
found, It Is ususLly the result 
oF a defective disk. TT and 55 
denote the track and sector in 
which the error occurred. 
Ig: change the disk. 



The SYNC marker oF a block was 
not Found. The cause may be an 
unformatted disk, or no disk in 
the drive. This error cen also be 
caused by a misaligned reed/write 
head . 

Remedy, Either insert a diak 
and Format it IF necessary, or 
have the head re-aligned. 

A checksum error has occurred in 
the header of a data block, which 
may have been caused by the 
incorrect writing of a block or 
rough handling of the disk, 

A data block utas read into the 
DOS bufFer but a checksum error 
nas occurred. One or sore data 
bytss are incorrect. 
Kenedy, Save as many files as 
possible onto another disk, 

This error also results From a 
checksue error m the data block 
or In the preceding deta header, 
Incorrect bytes have been read. 
Remedy: Some as For error S3. 

This IB actually a UERIFY error. 
AFter writing every block the 
data is read again, checked 
against the Data i n the buffer. 
This error is produced iF the 
data are not identical, 
Remedy Repeat the command that 
caused the error. IF this does 
not work, the block-allocate 
commend muet De usetl ta lock out 
the oFFending block Froa Future 
use. 

An attempt was made to write to a 
disk with a write protect tab on, 
Remedyi Remove the tab. 

A checksum error has occurred in 
the header oF a data block. 
Rn«9dy Repeat coomand or rescue 
block. 

After writing a data block, the 
5YNC characters of the next data 
block were not Found. 
Remedy: Foraat the disk again, or 
ei change it. 

The ID in the DOS eemory does 
not agree with the IG on the 
disk. The disk either was not 
lnltiellsed or has an error in 
the header of a data block. 
Remedy, initialise the disk. 

The DOS cannot understand the 
command that it is receiving, 
Remedy i Correct the commend. 

n coHiand was not recognizes By 

the 005. 

Remedy, Do not use the comeand. 

The command sent was over 10 

characters long. 

Remedy, Shorten the comeand. 

A wlldcerd. (.*■■ or "T'J was 
used m en OPEN or SAVE command. 
Retedy: Remove wildcard. 

the DOS cannot find the filename 
in s command . The cause nay be a 
Forgotten colon aFter the command 
word , 

Remedy, Check the command . 



39, FILE NOT FOUND, 03. 00 



SO. RECORD NOT PRESENT, 00. HO 



si. overflow in record.' 



SS.f.LE TGD LOPGE.OO.I 



BO, WRITE FILE □PEN.Qfl.i 



SI , FILE NOT OPEN. 



S3, FILE NOT FOUND, OO, i 



63.FILE EXISTS, 00, 



61, FILE TYPE hlSHATCH.I 



65. NO BtCCX.TT.5S 



66, ILLEGAL TT or SS.TT.SS 



S7 , ILLEDAL TT or SS.TT.SS 



7fl.N0 CHANNEL, OCOB 



71.D1R ERROR. TT.SS 



75, DISK FULL. 00.00 



?3.CB" 005 v. 56 1511. BO. 00 

71. DRIVE NOT READY, 08, 00 
7S, FORMAT SPEED ERROR, 00, 81 



user program (U5R) was not Found 
For automatic execution. 
Remedy: Check Fileneee. 

a non-e< latent record was 
addressed m a relative data 
File, when writing a record this 
is not really an error. 
Remedy, You can avoid this 
message if you write CHRSC5SS) 
with the highest rscard number 
when lnitlellBing the file. 

The number oF characters sent 
when writing e record in a 
relative file was greater then 
the record length. The excess 
characters are ignored. 

The racord number within e 
reletive File is too bigi the 
disk does not have enough 
capacity . 

Remedy: Use another disk or 
reduce the number of records . 

An attempt was eade to OPEK a 
File that had not previously bean 
CLDSEd aFter writing. 
Remedy, Use node TV in the OPEN 
command to read the File, 

Access was attempted to a file 
that has not been OPENed . 
Remedy: OPEN the rile or check 
the f i lename . 

An attempt was made to load a 
program or open a file thet does 
not exist on the disk, 
Remedy: Check the filsnaee. 

An attempt was made to establish 
a new file with the same name as 
one already on the disk. 
Remedy, Use a different name or 
use U0, 

The file type used in the OPEN 
command does not agree with the 
file type in the directory. 
Remedy: Correct the Flletype- 

1Mb message is given in 
essociation with the block- 
allocate command when the 
specified block is no longer 
Tree, m this cese.the DOS 
automatically searches for a free 
block with a higher sector and/or 
track number and gives these 
values as the track and sector 
number in the error message. IF 
no block with e greater number is 
Free, two zeros will be given. 

An attempt has been made to 
access a non-evistent block using 
the block commends. 

The track/sector combination of a 
file contains valuee for a "on* 
existent track or sector. 

An attempt has been made to open 
more File channels than are 
available or a direct access 
channel Is already reserved. 
Remedy: Always close a channel 
after it has been accessed. 

The nueber oF Free blocks in the 
DOS storage does not agrae with 
the BAh. OFten this means the 
disk has notbeen initialised. 
Remedy IF the diak has been 
initialised, veil da to it. 

Fewer than three blocks are Free 
on the disk or the maximum number 
of directory entries have been 
used (111 on the 1511). 
Remedy: Use a diFFerent diek or 
try validating to Free any blocks 
that may be available. 

The -essage is the power-up 
message of the 1541. It appears 
as an error message when an 
attempt Is made to write to a 
diek that was not Formatted with 
the sane DOS version. 

The drive does not have a disk 
inserted , 

This error only occurs on the 
CB-1 Beso. 
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LOCUTION 197 CGT tEYCQOE UALUES 



KEY 



KEYCOOE 



li- 
es 



IB 
11 

si 



33 
34 
37 
45 
36 
33 
38 
11 

Be 

17 
13 

es 

30 
31 
9 

as 

55 
15 
56 
59 

a 

it 



KEY 

5 
6 
7 
B 
9 

a 



£ 

CLR/HDHE 
INST'DEL 
LEFT ARROW 
B 



CSR UP' DOWN 
CSR LT/tT 
Fl 
F3 
F5 
F7 
SPACE 
RUN/STOP 



KEY CODE 

IB 
19 
51 
57 
35 
3S 
10 
13 
4B 
51 

9 
57 
IB 
19 
54 
45 
50 
53 

1 
47 
14 
55 

7 

a 

4 

5 

6 

3 
60 
63 



'40 KEV PRESSED - B4 



C64 UALUES FOUND AT LOCATION £53 



CODE 


DESCRIPTION 


■ •" 


No kB\i prnt«d 


1 


SHIFT 


5 


can 


3 


SHIFT and CBn 


4 


CTRL 


5 


SHIFT and CTRL 


B 


Cfln and CTRL 


7 


SHIFT, CTRL and CBH 



ADDPEri^NG -03EG AND GPEBATIDf. CCDF.S 



The Following table gives Che he* values Tor tie various 
opcodes in their individual addressing nodes. The Following 
Key to be used Tor the Address node; 



ft 
a 

ZP - 

OB - 

OBX - 

ABY - 

ZPX - 

ZPY " 

.X) - 

),Y - 



MNEMONIC 



Accumulator 
lnaediats 
Zero page 
Absolute 
Absolute X 
Absolute Y 
Zero page X 
Zero page v 
I ndtnod X 
Indexed Y 



ADDRESSING HOCE 





ft 


a 


ZP 


ftB 


A8X 


ABY 


ZPX 


ZPY 


.XI 


i.v 


ADC 




69 


65 


6D 


7D 


79 


75 




El 


71 


AMD 




59 


55 


5D 


30 


33 


35 




51 


31 


ASL 


OA 




06 


OE 


IE 




16 








BIT 






51 


5C 














CHP 




C3 


CS 


CD 


DTJ 


09 


D5 




CI 


□1 


CPX 




EO 


El 


EC 














CPY 




co 


CI 


CC 














DEC 






CS 


CE 


□□ 




OE 








EOR 




49 


15 


40 


5D 


59 


55 




11 


51 


INC 






E6 


EE 


FD 




FB 








LDA 




A9 


ft5 


no 


SO 


B9 


BS 




fll 


81 


LDX 




fte 


AS 


ftE 




BE 




SB 






LOV 




AO 


«4 


AC 


BC 




B1 








LSR 


1ft 




46 


4C 


5E 




56 








□RA 




09 


05 


00 


ID 


19 


IS 




ei 


11 


ROL 


Bft 




56 


5E 


3E 




3G 








TOR 


6ft 




66 


BE 


7E 




76 








SBC 




E9 


ES 


EO 


FD' 


F9 


F5 




Cl 


Fl 


Sift 






B5 


BO 


9D 


99 


35 




Bl 


91 


SIX 






B6 


BE 








56 






STY 






B1 


BC 






91 









GROUPED INSTRUCTIONS 



Branch Instructions 



BPL 
10 



BH1 
30 



DUG 

50 



Transfer 1 nst ructions 



TXA 



TftX 

AA 



TYA 
36 



BUS 
70 



TftY 
A8 



BCC 
90 



rsx 

Bft 



TXS 
9ft 



-■i |- 



BED 
FO 



Stack Instructions 



PHP 



PLP 



PHA 
IB 



Jump Instructions 



BR* 



JSP 

eo 



RTI 
40 



Flag Instructions 



CLC 
18 



SEC 
38 



CLI 
SB 



IMC/ DEC Instructions 



I.E. 



my 
ce 



DEX 
CA 



PLA 
SB 



RIS 



SEI 
7B 



I NX 
EB 



jnp 
1C 



CLU 



JHP 
BC 



CLO 
DB 



NOP 
Eft 



SED 
FB 



HEX TO DECIHftL CONVERTER 



HEX 


DEC I HAL 


HEX 


DEClrtftL 


HEX 


OEC 


I HAL 






HIQH 




LOU K1BH 




LOU 


HIQH 


too 


Q 


0 


•56 


BG 5501 G 


sac 


175 


11035 


SOI 


1 


556 


S57 


07 55575 


SOD 


173 


145BB 


S02 


e 


515 


S58 


B( 


1 55556 


9AE 


174 


11541 


S03 


a 


'SB 


ssa 


e« 


i ee7B4 


*AF 


175 




Ml 




1 


S5A 


90 53010 


SB8 


176 


1SOS6 


SOS 


5 


1580 


•SB 


91 53596 


SB1 


177 


45315 


see 




1536 


•5C 


95 53555 


SB? 


178 


155SB 


M' 


7 




S5D 


93 53B0B 


SB 3 


179 


4SB54 


SOB 


g 


eoiB 


SSE 


91 54064 


SBi 


180 


1&0BO 


S09 


g 


5304 


»SF 


55 51350 


•B5 


181 


46336 


IDA 


10 


BSBS 


•60 


96 64576 


• BE 


1B5 


46S95 


SOB 


11 


BB1H 


SGI 


97 54B35 


SB7 


1B3 


4684H 


IOC 


15 


3075 


•65 


96 £5098 


SBG 


181 


17101 


SOD 


13 


33ea 


S63 


99 5S314 


•BS 


1B5 


17360 


SOE 


14 


1504 


•61 


lot 


i 5SSB0 


SBB 


1B6 


17616 


SOF 


15 


3B10 


•65 


io: 


i 85BS6 


SBB 


187 


17B75 


• 10 


16 


103G 


S66 


ioe esue 


•BC 


IBB 


IBIBB 


•11 


17 


isse 


•67 


103 e63G8 


SBD 


IBS 


183B4 


S15 


IB 




•SB 


1B4 5G651 


SBE 


ISO 


18610 


113 


ia 


iB&i 


S69 


105 568B0 


*BF 


191 


IBB 06 


S11 


50 


5150 


SSA 


106 67136 


•CD 


ise 


19155 


115 


51 


5376 


SS8 


107 57335 


SCI 


193 


19-iOB 


SlG 


ee 




S6C 


lOt 


) 57648 


see 


194 


13661 


■ 17 


53 


5888 


S6D 


IBB 57301 


SC3 


195 




S19 


54 


6114 


S6E 


111 


1 5B160 


SCI 


136 


50176 


S19 


55 


6400 


•6F 


111 


5841 G 


•CS 


137 


50135 


Sift 


56 


6655 


S70 


115 5B675 


SCE 


1SB 


j0D{"ii 


SIB 


57 


591 e 


•71 


1 13 5B35B 


*C7 


133 


S0S44 


SIC 


5B 


7 IBB 


s7e 


114 B91B4 


see 


500 


SI 500 


SID 


59 


7iei 


•73 


US 59448 


•ca 


501 


51456 


S1E 


30 


7 JiQt? 


S74 


1 1G 2SGSG 


sen 


505 


S1715 


•IF 


31 


7 935 


•75 


117 essse 


SCB 


503 


5136B 


S50 


35 


t< 1 


S76 


u( 


1 30508 


sec 


501 


55554 


•51 


33 


B k ' " B 


•77 


1 19 30461 


sec 


505 


554 BO 


see 


3H 


B701 


S7B 


150 33750 


SCE 


506 


^?3n 


•53 


35 


8853 


•79 


151 


30376 


•CF 


507 




se4 


36 


9ei5 


S7ft 


155 31535 


SO0 


503 


5351B 


S55 


17 


AH 7 3 


*7B 


153 314B8 


SD1 


509 


53S01 


see 


IB 

jo 


■ n*n 

' CO 


«7C 


181 31744 


soe 


510 


53760 


»e7 


39 




•70 


155 35000 


•03 


an 


5401G 


see 


40 


1 P ?1 B 


S7E 


156 35556 


•04 


515 


S1B75 


S59 


11 


1 04 BS 


•7F 


157 35515 


SD5 


513 


S155B 


S5ft 


45 


iB7se 


S80 


158 3576B 


SD6 


511 


517B4 


S5B 


43 


1 LHS 


•Bl 


159 33054 


•07 


515 


55040 


S5C 


44 


1 1561 


sae 


1 30 332B0 


SDB 


51B 


SS29G 


•50 


15 


i iseo 


SB 3 


131 


33S36 


SD9 


517 


55592 


ses 


IS 


1 1776 


S81 


135 33735 


SDA 


51B 


sssta 


»5F 


17 


!?03£ 


SBS 


133 3104B 


SDB 


513 


560E1 


S3Q 


4B 


: aajgg 


•BS 


134 34301 


•DC 


550 




•31 


19 


iesn 


»B7 


135 31S60 


SOD 


551 


5C-5-G 


S35 


50 


lesoc 


SBB 


136 34B1B 


SDE 


555 


SBB 35 


•33 


SI 


130S6 


SB9 


137 35075 


SDF 


553 


57088 


S34 


55 


13315 


SBA 


i 38 3S3ea 


•EO 


eei 


57341 


•35 


53 


13568 


SBB 


139 35581 


•El 


55S 


a vm 


S3B 


51 


13651 


SBC 


110 35B10 


SE5 


556 


37836 


•37 


55 


110BO 


SBD 


141 


35096 


SE3 


557 


SB115 


S3B 


56 


14336 


SBE 


Hi 


! 36355 


SEI 


55B 


533EB 


S39 


57 


usae 


SBF 


14; 


1 3660B 


SES 


553 


SE6?'l 


S3A 


SB 


14B1B 


•so 


iw 


i 36661 


SE6 


530 


58880 


S3B 


59 


15101 


SB1 


14i 


1 37150 


SE7 


531 


SBL36 


S3C 


BO 


15360 


•95 


ne 


I 37376 


SE8 


535 


53395 


•3D 


61 


15616 


•93 


147 


37635 


•ES 


533 


5BB4H 


S3E 


65 


15B75 


•SI 


HE 


1 37BBB 


SEA 


534 


59901 


S3F 


63 


lSieB 


•95 


14E 


1 3B144 


• EB 


535 


60160 


S10 


Bl 


16391 


BSC 


150 38400 


SEC 


536 


60416 


•11 


65 


16640 


597 


151 


3BGS6 


SED 


837 


60675 


•15 


B6 


L6B3G 




155 38315 


SEE 


538 


BBsee 


Si 3 


67 


17155 


sss 


153 391GB 


• EF 


539 


61184 


•11 


SB 


17406 


SSft 


154 39154 


SFO 


510 


61110 


•15 


69 


17661 


SSB 


IS? 


39680 


SF1 


541 


B169B 


•16 


70 


17350 


S9C 


156 3S936 


SF5 


546 


G155.? 


SI 7 


71 


1B176 


S9D 


15- 


40135 


1F3 


513 




SIB 


75 


1B135 


S9E 


15B 10148 


»F4 


541 


65164 


•IS 


73 


1668B 


•9F 


15! 


i 10701 


SF5 


515 


65750 


*1A 


74 


18911 


SftO 


ISO 40360 


1F6 


545 


65976 


S4E 


75 


iseoE 


SA1 


151 


iieie 


SF7 


547 


sacae 


SIC 


76 


1S1SG 


sr..-' 


165 41475 


SFB 


54 B 


634B8 


SlD 


77 


19715 


Sft3 


ie: 


1 4175B 


•F3 


519 


63741 


S4E 


7B 


19358 


SA4 


16- 


1 41984 


•FA 


558 




•IF 


79 




•A5 


16! 


> 15540 


SFB 


551 


61556 


•SO 


80 


50-180 


SAG 


166 45136 


•FC 


855 


6is ie 


SSI 


Bl 


50736 


•B7 


167 


45755 


•FD 


B53 


6176B 


sse 


ee 


B09SS 


•OB 


16E 


1 4300B 


SFE 


551 




SS3 


B3 


5154B 


SAB 


165 


i 43564 


SFF 


556 


eseaa 


S54 


84 


51504 


SOA 


170 13550 








S55 


BS 


5I7S0 


•AB 


171 


43776 
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programs 

in this 
guide 9 



5& 3? «v 

°» disk 
or £2«sett 



yping in long programs can be a pretty daunting task. 
Once you've entered the program there will probably be 
typing errors that need to be corrected. Why not save 
yourself time and trouble by buying a disk or cassette 
containing all of the programs from this magazine at a 
bargain price of £6.00 (disk) or £4.00 (cassette). 

The disk and cassette are only available by mail order 
from the address on the order form. A cheque payable to 
ASP Ltd for the correct amount should be included with 
the order. Overseas customers should add £1.00 for 
postage. 



ORDER FORM — PLEASE COMPLETE IN BLOCK CAPITALS 



NAME 


QUANTITY 


PRICE 


ORDER CODE 


TOTAL 


SERIOUS USER 
DISK 




£6.00 


YSUGD2 




SERIOUS USER 
TAPE 




£4.00 


YSUGC2 




OVERSEAS POSTAGE 




£1.00 








TOTAL 





NAME 



ADDRESS. 



POSTCODE. 



I enclose a cheque/postal order for £ made payable 

to ASP LTD. for the Your Commodore Serious User Guide 
Disk/Tape. 



All orders should be sent to: Your Commodore, Readers 
Services, Argus Specialist Publications. 9 Hall Road, Hemel 
Hempstead, Hens HP2 7BH. 



Please allow 28 days for delivery. 
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128 Font Editor 



A character designer to turn your CI 28 into the 
definitive machine 



u. 



ser-defined characters can turn 
a so-so screen into a work of an but 
their creation involves the program- 
mer in hours of preparatory work. 
Font Editor makes the C128's brain 
lake the strain by providing an 
environment which is easy to master 
and can be expanded as the user's 
needs dictate. 

Font Editor is a machine code 
program located between $3000 and 
$4000 (12288-16384), with two 
characters sets stored at $2000 
(8184) and $2800 (10240). These 
locations are normally reserved for 
the screen in graphic modes 1, 2, 3 
and 4, which means that the Font 
Editor can't be used alongside these 
four modes. 

Before the editor is used, it is 
important to understand how the 
CI 28 character sets are normally 
used. The two sets are categorised as 
upper case with graphics, and upper 
case with lower case. Only one set 
can be used at a time and they can be 
swapped by holding down the 
SHIFT key and pressing the CBM 
key. 

The character shapes are copied 
from a table in ROM but it is 
possible, by pointing the operating 
system towards an area of RAM, to 
load in two user-defined character 
sets. The 128 Font Editor has been 
written to help with the design of 
these alternative sets. 

Controlling the editor 

The Font Editor screen is divided 



into several windows, or areas, 
which control all of the functions 
necessary for redefining the char- 
acters. By using a joystick in Port 2, 
the screen pointer can be moved 
from area to area and, when the 
desired mode is highlighted, the fire 
button is pressed to select the new 
mode. 

The function of each window is 
shown in Diagram L 

The options 

The 20 option menu allows complex 
operations, like mirroring and rota- 
tion of characters, to be performed 
at the touch of a button. Tables 1 
and 2 show the variety of the func- 
tions available through these menus. 
The load and save operations only 
operate on the current character set, 
so the set has to be selected from the 
menu before these options are 
executed. 

These tables only show the stan- 
dard features but complex manipu- 
lations can be achieved by using two 
or more options in sequence. Any 
character can be flipped in the diag- 
onal plane by first rotating the char- 
acter through 90 or 270 degrees and 
then by flipping the character in the 
horizontal plane. 

The best way to execute these 
special operations is through user- 
defined routines written in Basic or 
code. To execute such a function, 
select the End Editor option and the 
computer will return to the mode it 
was in when the editor was entered. 



For example, if the editor was called 
from within a program by a line such 
as: 

10 BOOT"FONT EDITOR" 
it will return to program control at 
the next program line. If it was 
entered from direct mode then the 
READY prompt will appear. 

When the defined routine has 
been executed, the Font Editor can 
be re-entered with SYS DEC 
("382F') as long as the option 
screen has not been corrupted by the 
new routine. 

By using calls to the editor's 
code, it is possible to add extremely 
complex functions to the editor 
whenever your needs dictate. 

Defining new options 

There are several things to bear in 
mind when defining an option. The 
editor code and character definition 
areas must not be corrupted by the 
new routines, but the input window 
(Area 4) can be used. To facilitate 
extended options, the function keys 
can be used when the program is in 
input mode but Area 4 should al- 
ways be cleared before re-entering 
the editor. 

The RUN/STOP and RESTORE 
function is not disabled by the pro- 
gram but, if the program is inter- 
rupted by using these keys, it can be 
restarted by SYS 1 2288. If, however, 
the screen has been corrupted, the 
editor will have to be rebooted be- 
fore this system call. 

Always, remember that the cur- 
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rent character set remains operative 
when the End Editor option is used. 
This also applies to whether the set 
is taken from ROM or RAM. 

The following breakdown of the 
Font Editor memory map will help 
when defining your own routines. 

S0A2C The lower nybble indicates the current 
source of the character set. 
%xxxx0I0O ($4) for ROM set I 
%xxxx01 10 ($6) for ROM set 2 
%xxxxl000 ($8) for RAM set I 
%xxxxlOIO (SA) for RAM set 2 

S0C00 Start of the relocated interrupt routine 
for moving the cursor around the 
screen. It appears here to avoid prob- 
lems if the graphics screen is cleared. 

$0D63 The X position of the pointer when the 
fire button was last pressed. 

S0D64 The Y position corresponding to 
S0D63. 

$01)65 Register for the currently selected 
menu option in Area 3. No option is 
selected if the value is $FF. 

S0D66 Flag to indicate that the fire button 
has been pressed. This is reset from 1 
to 0 when the signal is acknowledged. 

$3000 SYS called for a cold start only after 
RUN/STOP and RESTORE have 
been pressed at the same time. 

S3Q.4E This routine clears the input window. 
Area 4. 

S30D6 Forces Area I to display the current 
character held in the accumulator. It 
also updates Areas 2, S, 6 and 7 



accordingly. From Basic this is called 
by 

SYS DECC30D6"),sp 
where sp is the screen poke value for 
the character to be displayed. 

$3260 This inverts the pixel at the location 
specified by the accumulator (column) 
and the X register (row). From Basic: 

SYS DEC("$3260"),c,r 
where both variables are within the 
range zero to seven. 

$3662 Over-writes the RAM characters with 
the ROM set. 

$382F WARM START. This is the call for 
restarting the editor when re-entering 
from a user-defined option. Before 
calling this address remember to reset 
any windows that may hare been used, 
especially Area 4. 

The following commands only 
affect the character indicated by 
Area 5. Any other characters which 
need to be altered must first be 
called to the screen by the routine at 
S30D6. 

S32DS Clears the character in Area I, 

S32EC Inverts the current character. 

$3306 Mirrors the bottom half of the current 
character into the top area. 

S332D Mirrors the top of the current charac- 
ter into the bottom half. 

$3354 Flip the character in the horizontal 
plane. 

$3384 Rotates the character by 90 degrees. 
S33D7 Mirrors the right half of the character 



onto the left side. 
S340E Mirrors the left side of the character 

onto the right half. 
$3445 Flips the character in the vertical 

plane. 

$36.40 Copies one character from ROM into 
the current RAM slot* 

When the End Editor option is 
used, the pointer remains operative 
and can be used in the user-defined 
function. 

Redefining characters can be en- 
joyable and satisfying, the 128 Font 
Editor can increase the enjoyment if 
it is used wisely. 

Table I: The Function Menu 
COMMAND FUNCTION 
LOAD Loads a font from 

disk after allowing its 
name to be input via 
Area 4. The font is 
placed into the R4M 
locations for the cur- 
rently selected char- 
acter set. 

SAVE The current character 

set is saved to disk 
after its filename is 
input through Area 4. 

NEW ALL This replaces all of the 

current RAM char- 
acters with a copy 
of the corresponding 
ROM set 



Area I - displays an enlarged pixel map of the 
current character. By moving the pointer onto 
one of the pixels and pressing the fire button, 
the pixel is inverted. In other words, a pixel will 
be turned on if it is off and vice versa. 



Area 2 - contains the current hexadecimal 
values of all the rows of the character in Area I. 
This facility allows the user to enter a hexadeci- 
mal digit which is automatically poked into the 
corresponding character row. IJ, for example, 
the 'F' key is pressed when in this mode, the 
selected nybble of the current character row 
would be fully set (%I 1 1 1). Such an alteration 
would be reflected by the turning on of all the 
corresponding pixels on the Area I pixel map. 



Area 3 - main menu window which is subdivid- 
ed into twenty options in two banks often. The 
pointer can be moved up and down the options 
until the desired action is highlighted. When 
the fire button is pressed, the option is executed. 
The first menu also shows which of the two 
character sets is currently on display and the 
final option swaps one menu for the other. 




Area 5 - a similar colour function to Area 4 but 
this time the foreground is affected. It is also 
this area which displays the current character 
at its normal size. 



Area 6 - displays the hexadecimal value of the 
screen poke for the character displayed in Areas 
I and 5. The value can be changed in the same 
way as the hexadecimal value in Area 2 and the 
corresponding character will appear in Areas I 
and 5 ready for editing. 



Diagram I - The Screen Layout 



Area 7 ~ has three elements. The central section 
shows a portion of the current character set 
which surround the character shown in Area I. 
Two mid-line markers indicate which of these 
characters is currently displayed. By clicking 
the fire button on the arrow indicators at each 
side of the window the row can be scrolled 
back wards and forwards to select a new charac- 
ter for editing. 



Area 4 - serves as the command line but can 
also be used to change the background colour. 
When an input is required, a prompt appears in 
this zone and the response is displayed as the 
characters are typed in. 

To change the colour, the pointer is moved to 
this zone and, each time the fire button is 
pressed, the background is cycled on to the next 
of the sixteen colours in the range. 
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NEW ONE The character corre- 

sponding lo the cur- 
rent RAM character 
is transferred from 
ROM. 

COPYCHR Replaces the current 

character with the one 
whose screen poke 
hexadecimal value is 
specified in the input 
window. 

SWAP CHR Behaves in a similar 

way to COPY CHAR 
but the two character 
shapes are swapped. 

ROM /RAM CHR SET The character set used 
to form the editor 
screen display is tog- 
gled between the 
ROM and the RAM 
sets. 



1st /2nd CHR SET 



END EDITOR 



OTHER OPTIONS 



Toggles between the 
first and second char- 
acter sets. 

Returns control to the 
Basic mode from 
which the editor was 
entered. 

Selects the second set 
of menu options. 



Table 2: The Manipulation Menu 
COMMAND FUNCTION 
MIRROR UP Mirrors the bottom four 
lines of the character in the 
top four lines. 
MIRROR DOWN The reverse procedure 
of the MIRROR UP 
function. 

MIRROR RIGHT Takes a mirror image of 
the four right-hand co- 



MIRROR LEFT 

FLIP VERT 
FLIP HORZ 
ROTATE 



INVERT 

CLEAR 
MAIN MENU 



lumns and copies them into 
the left four columns. 
Has the reverse effect of 
the MIRROR RIGHT 
function. 

The current character is 
laterally reversed. 
Inverts the current 
character. 

Rotates the current charac- 
ter through 90 degrees. Re- 
peatedly select this option 
to rotate through ISO and 
270 degrees. 

Each pixel is reversed out 
so that any on pixels are 
turned off and vice versa. 
The current character is 
erased. 

Selects the function menu. 



PRDBRAtt: i2E FONT EDITOR 



5 GRAPHIC1,1:REF1 HOUE BASIC AB 
QUE ri.CODE 
E GRAPH I C0, 1 
10 DATA 3000 

20 DATA 4C,O4,30,20, A9,2B,BD,0 
3,30,20,52,36^9,20,80,03,30,2 
0.62,36,052A 

30 DATA AO,2C,0A,29.F0,09,0B,B 
D.2C.0A, A2,00 l BD,00,3C,9D,00,0 
4,80,00, B5C9 

40 DATA 3D,9D,00,05,BD,00,3E,9 
0 , 00 , 06 , BD , 00 , 3F , 9D , 00 , 07 , BD , 0 
0.3A, 90,0581 

50 DATA 00,0C,BO,00,3B, 90,00,0 

D , E8 , D0 , D9 , A9 , 0B , 20 , D2 , FF , 20 , 0 
0,0C,4C,075C 

SO DATA 2F,3B,AE,96,30,E8,E0,1 
0 , DO , 02 , A2 , 00 , EC , 97 , 30 , F0 , F4 , B 

E, 9S,30,0A12 

70 DATA BA,48,A2 1 DB,BB,FC 1 A2,0 
0 , 86 , FB , A0 , 00 , 91 , FB , C8 , 00 , FB, E 
6.FC, A5.0D3B 

80 DATA FC, E0.DC.D0.fi, 68, AA.B 
□,B6,30.20,D2,FF,60,90,05,1C,9 

F, 9C,1E,0B59 

90 DATA 1F 1 9E,B1,95,9B,97,9B,9 
9 , 9A , 9B, 01 , 02 , AE , 97 , 30, EB, E0, 1 
0,00,02.0998 

100 DATA A2,00,EC,96,30,F0,F4, 
8E, 21.D0.BE ,97,30,60, AB.C2, 96, 

FB, A2,06,0AF9 

110 DATA 86 , FC , A2 , 00 , AO , 00 , A9 , 
20, 91 , FB , CB , C0 , 03 , 00 , F9 , AS , FB , 
18,69. 28, 0ABE 

120 DATA B5,FB,A5,FC, 63, 00,95, 

FC, EB,E0,05.D0,E3,60,8D,5D,0B, 
48, 20 , FB, 0B3E 

130 DATA 30,80, 62, 05, BE. S3, 06, 
68 , 49, 20 , 10 , 31 , 5B, IB, 69, F8, AO , 
00,99,40,0694 

140 DATA 07, 18, 59,01 .CB, CO. 11, 
DO , FS , 60, IB, 48, 20 , 05 , 31 , AA , SB , 
4A,4A,4A,0SED 

150 DATA 4A,25,0F,C9,0A,90 1 02, 
£9,39,69,30.60.20, 15,31, 4C, 31 , 
31,AE,03.0SCB 

160 DATA 30,B6,FC,Ae,00,B6,FD, 
A2i 03, IB, OA , 25 , FD', CA, 00, F9 , 85 , 
FB , A5, FD, 0B76 

170 DATA 65,FC,BS,FC,60,A2,04, 
BE , 4F , 31 , A2 , A4 , BE , 4E , 31 , A0, 00, 



A2,00,B1,093C 

180 DATA FB.SD.Be.Sl.FO.OS.AS. 
A0,4C,4O,31, A3,20,9O,E4,05,EB, 
E0,08,O0,09EB 

190 DATA EA, AD, 4F , 31 , BD, SE , 31 , 
AD , 4E , 31 , BD, 6D, 31 , Bl , FB, 20, FB, 
30, 48.8A ,0963 

200 DATA A2,0D,48,6B,9D,BC,05, 
CA.E0,0B,DO,F7,A9,28,18,6D.4E. 
31,BD,4E,08E3 

210 DATA 31,90,03, EE. 4F. 31. C8, 
C0 , 0B, DO, BS , 60, B0, 40, 20, 10, 09, 
04,02. 01, 06A7 

220 DATA 48 I BA,4B,AD,5D,06,20, 
16 , 31 , 68, IB , 65 , FB , B5 , FB , 90 , 02 , 
E6,FC,6S,0BCD 

230 DATA AA , BD , BB , 31 , A2 , 00, 41 , 

FB, 81 , FB , AD , 50 , 06 , 4C , 10 , 31 , CB , 
0A,F0,20,0BFA 

240 DATA 19 , OA , A8 , 8B , 88 , BB , C7 , 
31 , 49 , B9 , C6 , 31 , 48 , 60 , F7 , 34 , 57 , 
35,61,35,0879 

250 DATA 9F, 35, 05, 37, 52, 37. AS, 
37,D8, 37, 2B.3B.A2, 22,85, FD.A2, 
32.86,FE,0BB7 

250 DATA A2.DF, 86. FB.A2, 04.85, 

FC, A9.0A, 4B,A0,00,B1,FB,48,B1, 

FD, 91,FB,0BF3 

270 DATA GB^l.FO.CB.CO.OE.DO, 
Fl .AS.FB.lB.Se^S.BS.FB, 90,02. 
EB.FC, A5.0C2F 

290 DATA FD,1B,B9,0E,B5,FD,90. 
02 , E6 , FE, 68, 18 , 68 , FF , DO , 02 , AO , 
21.32.49.0A57 

290 DATA 01,90,21,32,60,00,20, 
00.09,12, 12, OF. 12,20, 15, 10,20, 
20,20,20,0281 

300 DATA 20,0D,09,12 1 12 l 0F,ie, 
20, 04 , OF, 17, 0E, 20, 20, 20, 00, 09, 
12,12.OF,017C 

310 DATA 12,20,12.09,07,08,14, 
20,20,00,09, 12, 12, OF, 12,20, 0C, 
05,06,14.0156 

320 DATA 20, 20, 20, 06, 0C, 09, 10, 
20, 08, OF, 12, 1A, 20, 20, 20, 20, 20, 
O6,0C,O9,01A9 

330 DATA 10,20,15,05,12,14,20, 
20,20,20.20, 12, OF, 14,01, 14,05, 
20,20,20,01C0 

340 DATA 20,20,20,20,20,03,0c, 
05 , 01 , 12, 20 , 20, 20 , 20 , 20 , 20 , 20 , 
2O,20,09,01F0 

3S0 DATA 0E, 15,05, 12, 14, 20,20, 
20 , 20 , 20 , 20 , 20 , fi0 , 9D , 91 , 99 , 9E , 



A0,BF,90,0SB3 

360 DATA 94,89,BF,BE,93,A0 1 C9, 

0A,D0,03,4C,D8,3l,ia,0A, A8,88, 
BB,B9,C4,09BF 

370 DATA 32,49,B9,C3,32,48,60, 
05 , 33 , 2C , 33 , 00 , 34 , D6 , 33 , 53, 33, 
44,34,63,0532 

3B0 DATA 33,D4,32,EB I 32,AD,5D, 
06, 20. IS, 31. AO, 00, 98, 31 .FB.CB. 
C0,08,D0,08F1 

390 DATA F9. AD, SO, 06,20, 10,31, 
50, AD , 50 , 06 , 20 , 16, 31 , AO, 00, 91 , 
FB,49,FF,07D5 

400 DATA gi.FB.CB.CO.OB.DO.FS, 
AD, 50, 06 ,20, 10, 31, 60, AD ,50,06, 
20,16,31,0823 

410 DATA A0,04,A2,03,B6,FO,B1, 
FB , 84 , FE , A4 , FD , 91 . F8 , E6 , FE , B9 , 
B4.FD, A4.0DBB 

420 DATA FE,98,C9 ( 0a,D0.EC,AD, 
5D , 06 , 20 , 10 , 31 , 60 , AD , 50. OB , 20 , 
16.31. A2.0B0D 

430 DATA 04.A0, 03,86, FD.BX.FB, 
84 , FE , A4 , FD , 31 , FB , CG , FE , CB , 84 , 
FD,A4,FE,0E34 

440 DATA 98 , C9 , FF , DO , EC , AD , 5D , 
0G , 20 , 10 , 31 , 60 , AD , 50 , 06 , 20, IE , 
31, AO, 00,0904 

450 DATA A2, 07 ,96. FD, Bl , FB, 4B, 
84,FE.A4,FD,B1 1 FB,85,F0,SB,91, 
FB , AS, FD, 0E07 

460 DATA 84,FD,A4,FE,91,FB,C6, 
FD , CB , C0 , 04 , D0 , E3 , AD , 5D , 06 , 20 , 
10,31,60,0BB2 

470 DATA AD, SD , OS , 20, 16 , 31 , A2 , 
00,BA,3D,CF,33,EB,E0,08,O0,FB. 
A2,00,A0,091C 

480 DATA OO.Bl.FB.SD.BB.Sl.FO, 
OA , B9 , C7 , 33 , 18 , 7D , CF , 33 , 3D , CF . 
33,C8,C0,0A0D 

490 DATA 08,D0,EA,Ea,E0,08,D0, 
E3, A0, 00, B9.CF, 33,91, FB.CB, C0, 
08,DO,FG,0CB2 

500 DATA AD, 50, OS, 20 , 10, 31 , SO , 
01,02,04,08, 10,20,40,80,00, 10, 
00.E3.0F.03D2 

510 DATA 11, 31, C7, AD. 50, 06, 20, 
IB , 31 , AO , 00 , Bl , FB , 23 , FO. 91 . FB , 
C9,C0,0B,0301 

S20 DATA O0,F5,A0,00,A2,00,31, 
FB 1 3D,B8,31,F0,0B,BD,C7,33,1B, 
71,FB,91,0A5D 

530 DATA FB,Ee,E0,04,D0 l EC l CB, 
CO , OB, DO, ES, AD, 5D, OS, 20, 10, 31, 
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60 , AD, 50 , 0AA3 

540 DATA 06,50, 16, 31, AO, 00, Bl, 
FB , 59 , 0F , 91 , FB , CB , CO , 08 , DO , F5 , 
A0,00,A2,O914 

550 DATA 04, Bl , FB, 3D, BB, 31 , F0 , 
08, BD , C7 , 33 , IB, 71 , FB , 91 , FB , EB , 
E0,0B,DB,0B05 

5B0 DATA EC,C8,C0,0B,D0.E5, AD, 
5D , 06 , 20 , 10 , 31 , 50 , A2 , 00 , BA , 9D , 
CF,33,EB,09B5 

570 DATA E0,0B,D0,FB, AD,SD,0G, 
20, 16, 31, A0.00, A2.00, Bl.FB, 3D, 
BB.ai.FQ.BBFB 

5B0 DATA 0A,BS,CF,33,18,7D,C7, 
SS.SS.CF.SS.ES.EO.OB.DO.EA.CB, 
C0 r 08,D0,0ADB 

590 DATA E3,A0,00,B9,CF,33,91, 
FB , CB , CO , OB , DO , F5 , AO , 50 , 06 , SO , 
10,31, 6O.09F1 

600 DATA IB, AS, 11, A0 , 1A.S0, F0 , 
FF.60, A5,00,A9,a0,9D,EC,34,EB, 
EO.OB.DB.BSBF 

510 DATA FB.A2, 00,86, FB , S0 , E4 , 
FF , F0 , FB , 48 , A3 , 07 , 20 , DS , FF , 68 , 
C9,0D,F0,0CB0 

620 DATA 1A,C9,14,F0,17,C9,23, 
90, EB, C9 , 7B , B0 , E4 , A4 , FB , EB , FB , 
33,EC,34,0C?3 

630 DATA 20, D2,FF,C0,0A ,90,06, 
50 , A4 , FB , F0, Dl , C6 , FB, A9, 9D, 20, 
"D2,FF,A3,0D8S 
540 DATA 20.20.D2.FF, A3, 3D, 20, 
OS , FF , A9 , 20 , 88 , 99 , EC , 34 , 4C , Al , 
34,46, 2E.09E7 

650 DATA 20,20.20,20.20,20,20, 
20 , 20 , 20 , 20 , 20 , 20 , 88 , 34 , A2 , 00 , 
BD , AE, 35, 049E 

660 DATA 20, D2, FF.EB, E0, 17, 00, 
F5, IB, A2, 13, A0, 1 A , 20 , F0 , FF , 20 , 
31,34, A9.0AB9 

670 DATA 00,20, 90, FF, A3 , 0D , A2 , 

EA , AO , 34 , 50 , BD , FF , A3 , 00 , A2 , 08 , 
A0 1 00,50,08B4 

6B0 DATA BA,FF,A9,00, A2.00.AC, 
03,30,50,D5,FF,B0,07, AD, 50,06, 
20.10.31.07FF 

530 DATA 60,18^2,15^0,10,20, 
F0 , FF , AS , 00 , BD , S3 , 35 , 20 , D2 , FF , 

EB, E0,05,03A0 

700 DATA D0,F5,50,45,52,52,4F, 
55 , 50 , 88 , 34 , A2 , 00 , BD , CB , 35 . 20 , 
05, FF , EB , 03BE 

710 DATA E0, 17.D0.F5, A2, 13.A0, 
1A , IB , 20 , F0 , FF , 20 , 31 , 34, A3, 00, 
S0,90,FF,03BF 

720 DATA A3, 0D,A2,EA,A0, 34,20, 
BD , FF , A3 , 00 , A5 , 0B , A0 , 01 , 50 , BA , 
FF, AE, 03, 0370 

730 DATA 30,BB,FC,AS,00,B6,FB, 
A3,FB,A2,00, AC,03,30,C8,CB,CB, 
C8,CB,CB,0BAA 

740 DATA C8,CS,S0,D8,FF,B0,36, 
AO, SO , 05, 50, 10 , 31 , 60, 50, 50, 50 , 
4C.4F.41.07DA 

750 DATA 44,11,30,30,30,30.30, 
3D , 45 , 4F , 4E , 54 , 20 , 4E , 4 1 , 40 , 45 , 
20,20,20,06DB 

760 DATA 20,53,41,56,45,11,30, 
3O,3D,SD,3D,3D,4G,4F,4E,54,B0, 
4E.41.4D.0741 

770 DATA 45, 50, 50, 50, 20, 43 ,4F, 
50 , 53 , 1 1 , 30 , 3D , 3D , 30 , 9D , 3D , 43 , 
48,41,55,0600 

780 DATA 41,43,54,45,52,20,11, 
3D , 3D , 30 , 30 , 3D , 3D , 3D , 3D , 3D , 3D , 



4E,55,4D,0885 

790 DATA 42,45,55,50.54,50,50, 
50 , 4D , 4F , 56 , 45 , 1 1 , 9D , 90 , 9D , 9D , 
9O,3D,43,05B6 

B00 DATA 46,41,55,41,43,54,45, 
55,50, 11,90,90,90,90,90,90,90, 
9D.9D.3D.0B3D 

B10 DATA 4E, 55, 40,42,45,52,20, 
24 , 11 , 20 , 20 , 45 , 4E , 54 , 45 , 52 , 20 , 
41, 3D, 3D, 0577 

820 DATA SD.SD.SD.SD.SD.SD.SD, 
11,48,45,58,43,44,45,43,43,40, 
41,4C,9D,0816 

830 DATA 3D.SD, 3D, 30,90,90,90, 
11 , 4E , 55, 40, 42, 45, 52, AD, 00, FF, 
48,A3,01,0BC3 

B40 DATA BD.OO.FF.Ag.OO.BS.FB, 
AD, 03, 30, 18, 63, B0, 85, FC, A3, 00, 
B5 , FD, AD , 0A1F 

850 DATA 03, 30,85, FE, 18,63,08, 
AA , A0 , 00 , Bl , FB, 91 , FD, C8, 00, F9, 
E6,FC,E6,0C1C 

860 DATA FE,E4 1 FE 1 D0,EF,5B,BO, 
00 , FF , AD , SO , 0B , 20 , 10 , 3 1 , 60 , AD , 
5D,06.48,09BC 

870 DATA 20. 16,31, A5,FC,B3,B0, 
85, FE , AS, FB, 85 , FD , AD , 00 , FF , 48 , 
A9,01,BD,0AF1 

BB0 DATA 00,FF,A0,00,B1,FD,31, 
FB , CB , C0 , 08 , D0 , F7 , 68 , BD , 00 , FF , 
6B.50, 10.0ABC 

830 DATA 31, 60 , 20, AE, 30, 20, 88, 
34,A0,00,B3,34,36,20,D2,FF,C8, 
C0,2E,DO,0BA5 

300 DATA F5,20,E4,FF,F0,FB, A2, 
00 , DO , F6 , 36 , F0 , 08 , EB , E0 , 10,00, 
F5,4C,E1,0D51 

910 DATA 36,60,30,31,32,33,34, 
35,35,37,38,33,41,42,43,44,45, 
46,20,8B,04E0 

350 DATA 34, A5, 00. BD, DE , 35, 20, 
D2,FF,E8,E0,2B,D0,F5,20,E1,36, 
20,02, FF.0B77 

330 DATA BA.OA.OA.OA.OA.BS.FD, 
20, El , 36 , 20 , D2 , FF , BA , 05, FD , 20 , 
16,31, AS, 07F4 

940 DATA FB.4B, A5.FC.4B, AD.5D, 
06 . 20 , 16 , 31 , 68 , 85 , FE , 68 , 85 , FD , 
A0,00,B1,09C3 

350 DATA FD.Sl.FB.CB.CO.OB.DO, 
F7 , AD , 50, 06, 20, 10, 31 , 60, 20, 88, 
34 , A5 , 00 , 09SF 

96C DATA BD, 09, 36,20, D5.FF.E8, 
E0 , 5B , 00 , F5 , 50 , El , 36 , 20 , 02 , FF . 
8A,0A,0A,0A6B 

970 DATA OA.OA.BS.FD.SO.El.SS, 
20, D2 , FF , 8A , 05 , FD , 50, 16, 31 , A5, 
FB,48,AS,093E 

9B0 DATA FC, 48, AD, 50,06, 20, 16. 
Sl.BB.aS.FE.Be.SS.FD, A0.00.B1, 
FB,4B,B1,03D5 

330 DATA F0,91,FB,68,31,FD,CB, 
C0, 0B , D0 , Fl , AD, 50, 05, 20, 10, 31 , 
60, AD, 2C, 0A7A 

1000 DATA 0A,S9,0C,CS,04,O0,15 
, AO . 5C , 0A , 53 . F3 , 03 , 0B . BD , SC , 0A 
, AD, 01, 05, 0647 

1010 DATA 29, B0, 09, 01, BO, 01,05 
,60, AD,5C,0A,S9,F3,0S.04,BD,SC 
.0A,AD,D1,06C3 

1050 DATA 05,29,80,03,0F,BD,D1 
, 05 , 50 , AD , 2C , 0A , 29 . 05 , F0 , S3 , A3 
,8E,S0,O5.06D3 

1030 DATA FF.AS.OO.BO.FB.OS.SS 
. 80 , ID , 56 , 3B , 3D , FB , 0S , E8 , E0 , 03 



,D0,F0,A3,0A4D 

1040 DATA 20,8D,03,30,AD,SO.0B 
,50, 10,31,60, A3, 0E, 50,05, FF, AS 
.OO.BD.FB^BO 

10S0 DATA 05,29,80,10,59,38,90 
, FB , 05 , EB , E0 , 03 , D0 , F0 , A3 , 28 , 8D 
,03,30, AD, 0BBF 

1060 DATA 50,06,20,10,31,60,31 
,13, 14,35, 0E, 04,68,68,60^6, 66 
,0D,F0,FB,05FC 

1070 DATA AD.BS.OD.CS.FF.FO.IB 
, 48 , A0 , 00 , BC , 55 , 0D , 50 , AE , 30, 68 
,AE, 51 ,35,0840 

1080 DATA D0,06,S0,B4,31,4C,SF 
.SB.SB.AE.aS^C.SF.SB.AD.eS.OD 
, AC,64,0D,057B 

1090 DATA C9,04,90.22,C9,0C,B0 
, IE, C0, 04,90, 1 A, C0,0C,B0, 16,88 
, 88 , BB . BB , 0842 

1100 DATA 84, FB,A6,FB, 18,63, FC 
, 20 . 90 . 31 . A0 , 00 , 8C , 66 , 00 , 4C , 5F 
. 38 , C3 , 04 , 0890 

1110 DATA 90,17,C9,07,B0,13 1 C0 
,0E,90,0F,CO, 11,B0,0B,50,S5,30 
, A0,00,BC 1 0701 

11S0 DATA 66,00, 4C, 5F, 3B,CS, 1A 
,30, 17,C3,25,B0, 13.C0, 11.90.0F 
,C0,16.B0,0757 

1130 DATA 0B,20,9B,30,A0,00,BC 
,66.0D,4C,2F,3B 1 C9,02,90, 1D.C3 
, 05, B0, 13,0654 

1140 DATA CO, 14 , 90, 15 , CO, 17, B0 
, 1 1 , EE , 5D , 06 , AD , 5D , 06 , SO , D6 , 30 
, A0,00,aC,07C4 

1150 DATA 66,0D,4C,2F,38,C3, 16 
,30, ID, C3, 13, B0, 13, CO, 14,30, 15 
,C0, 17,B0,07SD 

1160 DATA ll.CE.SD.OB.AD.SO.OS 
,50, 06, 30, AO, 00.8C, 66, 00, 4C.SF 
,3B,C3,10,06A3 

1170 DATA 30,23,C3,12,B0, IF, CO 
, 04 , 30 , IB , C0 , 0C , B0 , 17 , IB , 53 , FO 
,8B,BB,8B,0BG8 

1180 DATA 8B,B5,FB,38,A6,FB,50 
,42,33, A3 ,00 ,80,66,00, 4C.2F, 38 
,C9,OA,90,0B9B 

1190 DATA 1A,C9,0C, B0, 16, CO, OF 
,90, 12.C0, 10,B0,0E,1B,53,F6,5O 
,70,39, AO, 07A1 

1500 DATA 00,aD,66,0D,4C,5F,3B 
, 4C . 2F , 38 , 48 , BA , 48 , SO , CE , 36 , 86 
,FE, AD, 50,0735 

1210 DATA 06,20,16,31,68,00,13 
, 68, A8, AS, FE, OA, OA, OA , BA , 85 , FE 
,B1,FB,53,07F1 

1550 DATA OF.OS.FE.Sl.FB.AD.SO 
, 06 , 50 , D6 , 30 , 60 , 5B , AB , Bl , FB , S3 
.FO.OS.FE.OAOC 

1530 DATA Sl.FB.AO.SD.OS.SO.De 
, 30 , 60 , 48 , 20 , CE , 36 , B6 , FE , A3 , SD 
,B5,FB,A3,0A41 

1240 DATA 06. 85. FC. 68, AA, AS, 00 
, 48 , E0 , 00 , 00 , OB , 4C , 53 , 39 , 00 , 00 
,00, 00, 00, 06EA 

1250 OATA 00,00,00,00,00,00,00 
, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
, BB, 00, 00, B00B 

1260 DATA 00,00,00,00,00,00,00 
, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
,00,00,00,0000 

1270 DATA 00,00,00,00,00,00,00 
, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
, 00 , 00 , 00 , 0000 

12B0 DATA 00,00,00,00,00,00,00 
, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , OO 
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,30,00,00,0000 

1590 DATA 00,00,00,00,00,00,00 
, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
,00,00,00,0000 

1300 DATA A3, 40, OA, BD, 67, 00, 80 
, 00 , 0E , E0 , 00 , D0 , F5 , AD , 04 , 0A , 55 
,FE,BD, 04,0890 

1310 DATA 0A, AD, 15,00,39, FE.09 
,01 ,BD, 15.D0, A9,5E,BD,00,D0,8D 
,01,D0,AD,0BAE 

13E0 data 10,00, s9,fe,bd,i0, do 

, A3, 38, 80, F8, 07, A3, Fl, 90,57, 00 
^0,14,03,0903 

1330 DATA BD.SF.0D, AO, 15,03,80 
. B0 , 0D , 79 , A3 , 55 , BU , 14 , 03 , A9 , 0C 
,BD, 15,03,0659 

1340 DATA SB,60 ( AD,65,0D,C9,FF 
,F0,03,20,3B,0D, AD, 00, DC, AA , 59 
,01,00,09,0850 

1350 DATA A9 , FC , 18 , BO , 01 , 00 , BO 
, 01 , D0 , 8A , 59 , 05 , 00 , 09 , A9 , 04 , 18 
,BD,01,D0,07EA 

13B0 DATA BD,01,D0 t 8A,59,04,D0 
, 13 , A9 , FC, IB , 60 , 00 , 00 , 6D, 00, 00 
,B0,08, AD.0BB4 

1370 DATA 10,00,49,01,90,10,00 
, BA, 59, 09, 00, 13, A3 ,04, 18, BD, 00 
,O0,8D,00,06C4 

13B0 DATA D0, 90,08, AO, 10,00,49 
, 01 , 80, 10 , D0 , BA , 4B , AD , 00 , 00 , 4A 
.AA.AD.IO.OBAC 

1390 DATA D0,59,01,F0,05.9A,18 
, 63 , B0 , AA , BA , 4A , 4A, 18, 69, FD, SD 
, 61 , 00 , AO , 3B5B 
-t«i00 DATA 01, D0,4A,4A, 18,68,01 
,4A, 1B.B8, F9,9D,65,0D, 6B.59, 10 
,D0,4E, AE.0714 

1410 DATA B6,0O,D0,10,AD,61,0D 
,00,63,00,00,08^0,65,00,00,64 
,0D,F0, 11.07DE 

1450 DATA AD,61,0D,8D,E3,0D,AO 
,65,0D,8D,64,0D,A9,01,8D,B6,0D 
,AD,61,0D,0BF7 

1430 DATA C9, 55,80, 19,09, 17,30 
, 15 , AD , 65 , 00 , 18 , 69 , FB , 09 , 0A , 80 
,08,69,01,0700 

1440 DATA BD,65,0D,50,3B,0D,4C 
, 50, 0D.A9.FF, 80, 85, 00,40,50,00 
, AS , 00 , BE , 06A5 

1450 DATA 63,0D,A0 ( 00,BC,S4,0D 
, 40, 01 , 00, EA, EA, A0, B6, 84, B5, A0 
, 04,84, B3.08A5 

1460 DATA AA.A3.5B, 18,65,65,30 
, 05 , E6 , B3 , 85 , B5 , OA , 00 , F5 , A0 , 0E 
,A3,80,1B,0A87 

1470 DATA 71,Ba,91,BS,BB,D0,FB 
, 60 , 60 , 5F , 00 , 00 , 00 , 00 , 00 , 00 , 00 
,FF,00,C0,07AB 

14B0 DATA 00,00, E0.00.00.E0, 00 
, 00, 70 , IB , 00 , 70 , FE , 00 , 7B , EF , 00 
,3F,77,00,05D6 

1490 DATA 3B , Bl , B0, 3D, 80, 00, ID 
.BD.CO.IC^B.EO, 1O,F7,E0,0B,£F 
,F0,0F,DF,0AD3 

1500 DATA F0,07,1F,FB,07,CF,FB 
,03,EF,F0,01,F7,E0,00,FF,C0,00 
,7F,00,00,09D4 

1510 DATA 10,00,00,00,00,00,00 
, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
,00,00,00,0010 

1550 DATA 00,00,00,00,00,00,00 
, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
,00,00,00,0000 

1530 DATA 00,00,00,00,00,00,00 
, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
,00,00,00,0000 

1540 DATA 00,00,00,00,00,00,00 
, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 00 
,00,00,00,0000 



1550 DATA 00,00,00,00,00,00,00 
, 00 , 00 , 00 , 00 , 00 , 50 , 50 , 50 , 50 , 50 
,50,50,50,0100 

1560 DATA 50,50,50,50,50,50,50 
, 50 , 50 , 50 , 50 , 50 , 50 , 50 , 50 , 50 , 50 
,50,50,50,0580 

1570 DATA 50,50,50,50,50,50,50 
, 50 , 50 , 50 , 50 , 50 , 50 , 70 , 40 , 40 , 40 
,40,40,40,0330 

15B0 DATA 40,40,40,40,40,40,75 
,40,40,40.40,40,40,75,40,40,40 
,40,40,40,0584 

1590 DATA 40,40,40,40,40,40,40 
,40, 40, 40, BE, 50, 50, 50,70, 40, 40 
,40,40, 40, 053B 

1600 DATA 40, 40, 40, 40, 40 , 6E ,60 
, 40, 40, 40, 40, 40, BE, SD , 70, 40, 40 
,40,40,40,0506 

1610 DATA 40,40,40,40,40,40,40 
, 40, 40, 6E, 50 ,50, 50, 50, 50, 50, 50 
,50, 50,50, 04A5 

1650 DATA 50, 50, 50, 50, 50, 6D, 40 
, 40, 40, 40, 40, 6E, 50,50,50, 50, 50 
, 50, 0F, 10,0451 

1B30 DATA 14,09, 0F.0E, 13,50,50 
, 50 , 50 , 5D , SD . 50 , 50 , 5D , 50 , 50 , 50 
,50,50,50,0331 

1640 DATA 50,50,50,50,50, 3D, 30 
, 54 , 30 , 30 , 30 , 50 , 50 , SD . 6B , 40 , 40 
,40,40.40.0463 

1650 DATA 40,40,40,40,40,40,40 
, 40 , 40 , 73 , 5D , 50 , 50 , SD , 50 , 50 , 50 
,50, 50,30, 04AA 

1660 DATA 50,50,50,50,50,30,50 
,54,30,30,30,50,50,50,50,50,00 
,0F,01,O4,0355 

1670 DATA 50,50,50,50.50.50,50 
, 50, 50, SD, SD, 50 , 50 , SD , 50 , 50 , 50 
,50,50.50,0374 

1680 DATA 30,50, 30,50,50, 3D, 30 
,34,30,30,30,5D,5O,5D,5D,50, 13 
,01,16,05,0364 

1690 DATA 50,50,50,50,30,50,50 
,50,50,50,50.50,30,50,50,50,50 
,30,50,50,0374 

1700 DATA 30,50,30,50,30.30,50 
, 54 , 30 , 30 , 30 , SD , 50 , 5D , 5D , 50 , 0E 
,05,17. 50, 037F 

1710 DATA 01,00,00,50,03,08,15 
,13,50,50,50.50,50.50,50,50,50 
,50,50, 50, 05DD 

1750 DATA 50,50,50,50,30,30,30 
1 34,30,30,30,SD,SD I 5O,5D,S0,0E 
,05,17,S0 1 037F 

1730 DATA 0F,0E,0S,30,03,0B,13 
, 50 , 50 , 50 , SD , 50 , 50 , 50 , SD , 50 , 50 
,50,S0,S0,05F3 

1740 DATA 50, 50, 30, 50, 50, 3D, 30 
, 54 , 30 , 30 , 50 , 50 , 50 , 50 , 5D , 50 , 03 
,0F, 10, 19,0370 

1750 DATA 30,01,50,03,08,15,50 
, 50, 50, 50, 50, 50 , 50 , 5D , 50 , 50 , 50 
,50,30,50,0315 

1760 DATA 50,50,50,50,50,30,50 
, 54 , 30 , 30 , 50 , 50 , 50 , 50 , 5D , 50 , 13 
,17,01,10,0370 

1770 DATA 30, 14, 17, 0F, 50.03.0B 
,13,13,50,50,30.30,50,50,30,30 
,50,50,S0,05FE 

17B0 DATA 50,50,30,50,50,30,30 
,54,30,30,50,50,50,50,50,50, 15 
,01,00,50,0375 

1790 DATA 03,08,13,30,13,05,14 
.30,30,50,50,30,50,50,50,50,50 
,S0,50,50,05FO 

1B00 DATA 50,50,50,50,50,70,40 
, 40, 40 , 40 , 40 , 7D , BD, 7D, 5D , 30, 31 
,13,14,30,04AC 

1810 DATA 03,08,15,50,13,05,14 



,50,30,50,50.30,30,50,80,75,40 
,40,40,73,0411 

1B50 DATA 40,40,40,40,40, 7D, 70 
, 40 , 40, 40, 40, 40, 40, 6E, 50, 50, 05 
,0E,04,50,04CF 

1B30 DATA 05,04,03, 14.0F, 13,30 
, 30. 50, 50, 50, 50, 50, 6B, BE, 50, 30 
,30,50, 60, 03A4 

1840 DATA 40,40,40,40,40,6E,5D 
, 00 , 13 , 0F , 06 , 14 , 50 , 50 , 5D , 50 , 05 
.04,09,14,0374 

1850 OATA 50.0F, 10, 14,09,0F,0E 
,13,50,50,50,50,50,50,50,50,50 
,50,50, 3D, 035A 

1960 DATA 50,54,33,30,50,50,50 
, 06 , 0F , 0E , 14 , 50 , 50 , 50 , BD , 40 , 40 
,40.40,40,0401 

1B70 DATA 40.40,40,40,40.40,40 
, 40 , 40 , 70 , SD , 50 , 50 , 5D , 50 , SO , 50 
,30,30,70,0541 

I860 DATA 40,40,40,40,40,70,50 
,05,04,09, 14. 0F. 13, SO, 40, 40, BE 
,70,40, 40, 04AC 

1890 DATA 40,40,40,40,40,40,40 
, 40, 40, 6E, SD, 50, 50, 50, SD, 60, 40 
,40,40,7D,05AF 

1900 DATA 70, 40, 40, 40, BE, 70,70 
, 05, 19, 50 , 0A , 15, 00 , 09 , 01 , 0E , 5D 
,50,50,50,0403 

1910 DATA 50,50,50,50,30,30,50 
, 50 , 50 , 5D , 50 , 50 , 30 , 5D , 6D , 40 , 40 
.40,40,40,0454 

1950 DATA 71, 40,40, 40,73, SD, 00 
. 01, 03, 0B, 03, 0E, 14, 0F, 13,08,50 
, 50,50,03, 034F 

1830 OATA 31,33,38,30,04,09,13 
, 03 , 30 , 5D , 5D , 50 , 30 , 68 , 40 , 40 , 40 
,40,40,40,03E3 

1940 OATA 40,40,40, 40, 70 , SD , 40 
,40,40,40,40,40,40,40,40,40,70 
,50.30,50,0584 

1950 DATA 16,0S,1S,13,0S,0F,0E 
, 50 , 50 , SD , 50 , 50 , 30 , SD , 70 , 40 , 73 
,40,40,40,03DF 

19S0 DATA 40,40,40,40,40,73,40 
,40,40, 40, 40, 40, 40, 40, 75 ,40, BE 
,50,50,59,0577 

1970 DATA 03,59,30,50,31,38,38 
, 37 , 50 , 5D . 5D , 50 , 50 , SD , SD , 30 . SO 
.IB.IS.IA.OSFD 

1880 DATA IB, 10, 10, IE, IF, 30, 31 
, 55 , 33 , 34 , 35 , 55 , 57 , 58 , 50 , 3E , SD 
,5D,50,50,03SA 

1990 DATA 30,50,50,50,50,50,50 
, 50 , 50 , SD, 50 , 50 , 50, 50, BD, 40, 71 
,40,40,40,0455 

5000 DATA 40,40,40,40,40,71,40 
, 40 , 40 , 40 , 40 , 40 , 40 , 40 , 71 , 40 , 70 
,60,40,40,0500 

5010 OATA 40,40,40,40,40,40,40 
,40,40,70,50,30,30,60,40,40,40 
,40,40,40.0547 

5050 DATA 40,40,40,40,40,40,40 
, 40 , 40 , 40 , 40 , 40 , 40 , 40 , 40 , 40 , 40 
,40,40,40,0500 

5030 DATA 40,40,40,40,40,40,40 
,40,40,40,70,30,50,50,30,30,50 
,50.50,S0,041D 

5040 DATA 50,50,50,50,30,30,50 
, 50 , 50 , 50 , 50 , 50 , 50 , 50 , 50 , 50 , 50 
,50,50,50,0500 

5050 DATA 50,50,50,50,50,50,50 
, 50 , 50 , 50 , 30 , 30 , 00 , 00 , 00 , 00 , 00 
,00,00,00,0180 
3060 DATA END 

63995 PRINT "DATA ERROR IN LINE 
"PEEK C SS ) +556-PEEK C 66 3 : END 
63999 LOOP: I NPUT " F I LENAI1E FOR 

SAUE: ";NS:BSAUECNS3 ,B0,PCS3TOP 
CE3 : END 
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he GTX Compiler is designed lo 
convert a Commodore 64 program 
written in Basic into high speed, 
machine code. This code makes calls 
to standard functions stored in 
memory, called the run-time library 
which means that the compiled pro- 
gram is shorter because frequently- 
used routines such as add or subtract 
can be stored as subroutines. 

Before using GTX, the program 
to be compiled must already be 
saved on tape or disk. When the 
compiler runs, the title page will 
appear and three prompts for inputs 
given in sequence. 

The SOURCE NAME is the 
name of the Basic program to be 
compiled. If using tape, press 
RETURN to load the program. 

The OBJECT NAME is the 
name that the compiled program 
will be saved under. If using tape, 
RETURN will cause the program to 
be saved without a name. 

SIGN SPACE refers to the print- 
ing of numbers. In Basic a number is 
preceded by a sign space and ended 
with a space. Pressing RETURN 
will print numbers in this way. Al- 
tering the Y to N will print numbers 
with neither of the two spaces. 

The program specified by the 
source name will then be loaded and 
compiling will begin. There are two 
parts to this process: 

PASS 1 

Each command is deciphered and 



the corresponding machine code is 
produced. The current Basic pro- 
gram line number is printed along 
with the present length of the com- 
piled program but, if any errors 
occur, the compiler stops and the 
error message is printed. The Basic 
program must then be re-loaded and 
modified if it is to be compiled 
successfully. 

Apart from errors, any number 
of warnings may be given. These do 
not stop the compiler since the 
program can still be compiled but 
the results obtained with the origi- 
nal, Basic version will differ from 
those in the compiled version. 
Again, the original program must be 
modified if the results are to tally. 

PASS 2 

All jumps such as GOTO and GO- 
SUB have the correct addresses in- 
serted and any DATA is transferred 
within the program. 

If compiling succeeds, then the 
Basic program length and the com- 
piled program length are printed 
along with the following options: 

R Run the compiled program 
S Save the compiled program 
O Output the run-time library 
C Compile another program 
E exit 

It is advised that the program is 
saved before running {option S) in 
case there is a problem. If using tape, 
a copy of the run-time library must 



be saved directly after the compiled 
program (option O). If using disk, a 
single copy of the run-time library 
will serve all the programs on the 
disk. Finally, the compiled program 
can be run using option R. 

Acceptable Basic 

The compiler does not accept the 
full set of commands available in 
Basic. Those that can be compiled 
are: 

PRINT (including , and ;) 

POKE 

PEEK 

IF/THEN 

READ/DATA/RESTORE 

FOR/NEXT 

GOSUB/RETURN 

GOTO 

CLR 

SYS 

REM 

AND 

OR 

END 

STOP 

There are also restrictions placed 
on these commands but, although all 
this seems rather daunting, most 
programs require very little atten- 
tion before they can be successfully 
compiled. 

All numbers are 16 bit un-signed 
integers 

This obviously means that GTX can 
not be used for complex programs 




4T 
So 
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that require floating point numbers 
but the main concept for GTX is to 
transform relatively simple Basic 
programs, such as games, to fast 
machine code programs. This type 
of program usually only requires 
integer numbers so this limitation is 
not a major one. The lack of nega- 
tive numbers can cause problems in 
converting a program that was not 
specifically written to be compiled. 
However, this limitation can nor- 
mally be solved by changing the 
style of programming to incorporate 
numbers between 0 and 65535. 

For example, part of a normal 
Basic program consists of the 
following: 

10 PRINT 4 [CLS]" 

20 P= 10*40+1 024+20: D= I 

30 A-P:P=P+D 

40 IFP>- 10*40+ 1024+39 

THEND=-D 
5<MFP<-10*40+1024 

THEND=-D 
60 FORB=lTO500:NEXT 
70 POKEP,88:POKEA,32: 

GOTO30 

As it stands this would not com- 
pile because of the negation of D in 
lines 40 and 50. The possible values 
for D are 1 and -1, the latter being 
out of range on GTX. Therefore, 
before the program could be com- 
piled, a few simple modifications 
would need to be made. 

Lines 30 to 50 must be changed 
to the following: 

30 A«P:P=P-1:IFD-1 

THENP-P+2 
40 IFP>=10*40+1024+39 

THEND-1-D 
50 IFP<= 10*40+ 1024 

THEND=1-D 

Now the program could be com- 
piled. In fact, when it was compiled 
it ran 36 times faster than the 
original. 

Variables can only be single letters 

This can cause problems if the origi- 
nal has a large number of variables. 
To assist with this problem there is a 
single array available, Z, which is 
pre-dimensioned to 64 elements, ie. 
Z(0) to Z(63). The DIM in the 
original program is not required by 
GTX but if included it will be 



skipped. Any further dimensioned 
arrays will cause an error to be 
flagged. 

Expressions are evaluated from left 
to right 

In Basic expressions are calculated 
in a set order, not from left to right. 
Brackets take top priority, next 
come indices, followed by division 
and multiplication, then addition 
and subtraction, with Boolean ex- 
pressions (AND, OR, NOT) taking 
lowest priority. For example, 

A-3+6*2 

In Basic this expression would eval- 
uate A as being equal to 15: 6*2-12 
and 12+3=15. If compiled A would 
be calculated as being equal to 18: 
3+6=9 and 9*2+18. To ensure the 
compiled program and the Basic 
program obtain the same value the 
expression would need to be 
changed to: 

A-6*2+3 

This can cause problems when a 
program was written without com- 
piling in mind. By checking the 
order of all expressions and chang- 
ing this where necessary, the com- 
piled program should obtain the 
same results as the Basic version. 
During Pass 1 of compiling the 
order of expressions are checked 
and, if discrepancies are likely to 
occur, a warning is given. The indi- 
cated expressions should be re-or- 
dered to ensure the program will 
operate correctly. 

Brackets are not valid expressions 

Brackets are only allowed with a 
PEEK command. Any other brack- 
ets must be removed before the 
program can be compiled. Usually a 
number of dummy variables are 
required to achieve this. An expres- 
sion such as 

A=5+((3*X)-8)/7-T/(4*Y-2) 

would have to be changed to: 

A-3*X-8/7+5:B=4*Y-2:B=T/B: 
A=A-B 

Only one PEEK per expression 

An expression such as this: 



A=PEEK(45)+PEEK(46)*256 
(order problem anyway) 

would have to be changed to: 

A=PEEK(46)*256:A-A+PEEK(45) 

before it could be compiled by GTX. 
This means the original Basic pro- 
gram is not as neat and will run a 
little slower but, thanks to the speed 
increase given by GTX, this is insig- 
nificant when compiled. 

No strings 

Strings are not incorporated at all. 
The use of strings in the type of 
programs intended to be compiled is 
usually very infrequent. Their only 
use is usually connected with a GET. 
There are a number of methods of 
emulating GET with the commands 
available, this is discussed later. 

AND and OR can not be used in 
IF/THEN comparisons 

A program line which takes the form 

10 IFA=30RA-6THEN 1000 

would have to be split into two 
separate lines before it could be 
compiled: 

10IFA-3THEN1000 

11 IFA=6THEN1000 

The AND statement must also be 
changed when used in the context: 

10 IFA=4ANDA-7THEN 1 000 

This would become: 

10 IFA-4THENIFA=7THEN 1 000 

AND and OR are included in the 
list of available commands but are 
only legal when acting as arithmetic 
operators. Take the situation where 
it is necessary to strip off the five 
most significant bits from the con- 
tents of location 197. 

B=PEEK(197)AND7 

In this case, the AND is not operat- 
ing as a logic comparator so the 
expression can be compiled. If AND 
or OR are used in an IF/THEN 
statement their operation would still 
be treated as arithmetical and the 
Basic program would not operate in 
the same way as the compiled 
version. . 
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FOR/NEXT loops can not use STEP 
The STEP function can be emulated 
by adding another statement into 
the FOR/NEXT loop. 

10 FORA=0TO940STEP40:POKE 
1024+A,102:NEXT 

would have to be changed to: 

10 FORA=0TO940:POKE:1024+ 
A,102:A=A+39:NEXT 

before it could be compiled. Note 
that A is only increased by 39 be- 
cause the NEXT statement automa- 
tically increments it by 1. resulting 
in a step of 40 for each loop. 

If the STEP is negative, it creates 
more of a problem. 

10 FORA-20TO0STEP-2: 

PR1NTA:NEXT 
would have to be changed to: 

10 FORB=0TO20:A=20-B: 
- -PRINTA:B=B+ 1 :NEXT 

Either of the above cases could 
be solved by a conditional GOTO 
loop. Taking another example: 

10 FOREA=920TO40STEP-40: 

POKE 1 024+ A, 1 60:NEXT 
could be changed to: 

9 A=920 

10 POKE1024+A,160:A-A-40: 
IFA>=40THEN10 

READ/DATA 

This is almost the same as Basic 
except that the numbers stored in 
the DATA statements can only be 
eight bits (0 to 255 decimal). This is 
not a serious limitation in games 
because most DATA statements are 
used for storing user-defined char- 
acters or sprite data, where the 
values are only eight bits anyway. 

RESTORE is exactly the same as 
in Basic. 

The Z( ) array is restricted 

This array must always be used 

through another variable. 

10 POKEZ(A),44 
must be changed to: 
10 B=Z(A):POKEB,44 

Missing commands 

The missing commands are rarely 



used and can often be forgotten or 
emulated using the legal commands. 

GET can be emulated in two 
ways. The first, and simplest, in- 
volves reading the keyboard directly 
using a PEEK. The values returned 
for each key are non-standard but 
for inputting only a few keys this is 
not a problem. The second method 
allows the keys to be read in ASCII 
and actually uses the same Kernal 
ROM routine as GET. 

10 GETA$:IFA$="A"THEN100 
can be changed to either: 

10 IFPEEK(197)=10THEN100 
or 

10 SYS65508:IFPEEK<780)= 
65THENI00 

In the first case, a value is re- 
turned for as long as the key is held 
down, unlike the second case where 
the value is returned only once for 
each key press. 

RND can be emulated by read- 
ing certain memory locations that 
change frequently. Two of the best 
locations to use are the raster regis- 
ter (53266) and the CIA timer A 
(56324). 

10 A=INT(RND(I)*I0) 

would have to be changed to: 

10 A-PEEK(56324)AND15: 
IFA>9THEN10 

A different type of random state- 
ment would be: 

10 IFRND(1)<.1THENPRINT 

"HELLO" 
Such a statement has a 10% proba- 
bility of printing 'HELLO'. The best 
way to achieve this with the compil- 
er is to change it to: 

10 IFPEEK(56324)<25THEN 

PRINT"HELLO" 
This also gives a 10% probability 
because there are 256 possible val- 
ues for location 56324. The state- 
ment only reacts to 25 of these 
values, so the probability calcula- 
tion becomes (25/256)* 100, which 
equals 10. 

CHR$ statements can usually be 
changed to a direct PRINT. If it is 
not possible to do this in your 



program then this alternative may 
be used: 

10 PRINT CHR$(A*4-9) 

can be emulated by: 

10 POKE780,A*4-9:SYS65490: 
PRINT 

The extra PRINT is required be- 
cause the character is printed with- 
out a carriage return. 

Typing it in 

If you arc using a disk then the 
programs can be entered and saved 
in any order. With a tape they must 
be saved in the correct order. 

First, enter Program 1, the loader 
that changes the address at which 
the compiler is loaded. GTX must 
always be loaded at this new loca- 
tion or it will be over-written by the 
program to be compiled. Save this 
loader at the start of the tape. 

Next, enter Program 2, the actual 
compiler. Do not run it yet because 
it must be loaded at the new address. 
It can be typed in at its run-location 
by entering the following direct 
command before starting. 

POKE44, 1 00:POKE43, 1 :POKE 
25600,0:NEW 

When the program has been en- 
tered, save it using the filename 
"GTX COMPILER", following on 
directly from Program 1 . 

Ensure that the computer has 
been reset before typing in Program 
3, the run-time library. Before run- 
ning, save this program on a spare 
tape or disk in case of fatal errors. 
Run the program and insert the 
original tape or disk, taking care not 
to erase the other two programs. The 
run-lime library will be saved with 
the filename "RTL". The run-time 
library must always be saved with 
this name even when working with a 
cassette tape. 

You should now have a complete 
Basic compiler. 

Testing the compiler 

The compiler is now ready to be 
tested. Enter Program 4, the test 
program, and save it. Load and run 
GTX and compile the program. If 
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any errors are detected, correct your 
test program and try again. Run the 
compiled program using option *R* 
and you should see GTX COMPIL- 
ER filling the screen. 

If you run the program in Basic 
first, you will notice the speed in- 
crease, typically 45 times. Pressing 
"R* will re-start and 4 E' will exit back 
to Basic. 

Memory requirements 

The compiler uses the following 
locations which should not be al- 
tered by the compiled program. If 
they are, crashes will inevitably 
occur. 

$C000-$C2FF (49152-49919) 

These locations contain the compil- 
ers run-time library. This must al- 
ways be present whenever the com- 
piler itself or a compiled program is 
used. In both cases, it will be loaded 
automatically by the program. If it 
can't be found, the program will 
crash. 

$CF00-$CFFF (52992-53247) The 
compiled program's variables are 
stored here. This location can be 
changed, if required, by altering the 
value of VA in line 1 1 of the 
compiler. 

A compiled program also uses a 
few page zero locations which, 
again, must not be altered by the 
compiled program: 

$02 (2) 
$14-$15 (20-21) 
$39-$3C (57-60) 
$3F-$42 (63-66) 
$FB-$FE (251-254) 



Program Description 
Line numbers 



5300-5310 
5400-5420 
5500-5570 
5600-5670 
5700-5770 
8000-8030 



9000-9070 
9100-9120 

9500-9505 
9510-9570 



9580-9650 
9700-9720 



9800-9830 
10000-10190 
10200-10220 

20000-20550 

25000-26050 
30000-32000 



REM 

DIM 

SYS 

DATA 

READ 

Prints 'insert tape', or disk, 
depending on current device and then 
waits for a key to be pressed. 
Opening title page. Inputs source 
name, object name and sign space. 
Loads program specified by the 
source name from the current device 
to $0801 (2049 decimal). 
Relocates program to run at $0820 
(2080 decimal). 

Prints original length and compiled 
length along with the total number of 
warnings. The options are also 
printed. 

Inputs selected option. 
Checks if run-time library is present, 
if not it is loaded off the current 
device to $C000 (49152 decimal). 
Saves the compiled program to 
current device. 

Inserts the correct addresses for all 

GOTOs and GOSUBs. 

Copies all DATA from its temporary 

store, starting at $C700 (50944 

decimal), to its correct place in the 

compiled program. 

Copies the machine code out of the 

run-time library to its correct place in 

the compiled program. 

Simplifies the machine code, if 

possible. 

Error messages. 



30-890 


Prints current line number and 


VA 




length. Deciphers next command and 


JP 




jumps to corresponding part of the 


TH 




program. 


DD 


1000-2510 


Evaluates expression. 




3000-3070 


GOTO and GOSUB 


EN 


3200-3930 


IF/THEN 


DA 


4000-4600 


PRINT 


AD 


5000-5030 


POKE 


AJ 


5100-5160 


FOR 


5200 5260 


NEXT 


DV 



Variables 

PR Pointer to the next byte of the Basic program. 
L%( ) Line numbers of the Basic program. 
A%( ) Start address of the machine code for each 
Basic line. 

J%( ) Address of each jump, such as GOTO and 

GOSUB. 
T%( ) Address of each THEN. 
N% Number of Basic lines encountered so far. 
CM% Current Basic token being processed. 

Start address of compiled program's variables. 
Number of GOTOs and GOSUBs so far. 
Number of THENs encountered so far. 
Start of temporary store for DATA (SC700, 
50944 decimal). 

End address of program being compiled. 
Start address of machine code. 
Address to store next byte of machine code. 
Adjust value to relocate program to $0820 
(2080 decimal). 

Current I/O device (l=tape and 8=disk). 




YOUR COMMODORE SERIOUS USERS GUIDE 
76 



LISTING 



PROGRAM : GTX COMPILER - LOADER 



5E 10 PRINT"CCLR,DaUN33POKE44,l 
00 : P0KE43 , 1 ; POKE25600 , 0 : NEW " 

37 50 PRINT"CD0ldN2JLOAD"'CHR£C34 
VGTX C0MPILER"CHRSC343", "PE 
EKUB6) 

60 30 PR1NT"CD0UIN9]RUNCH0ME3" 
CF 40 FORA-0TO9 : PDKE631 +A, 13: NE 

XT:P0KE19B, 10 
82 50 END 



PROGRAM: GTX COMPILER - MAIN 



IS 1 GQTG9700 

A3 10 FR-2049: DIML^iC 3003 ,A"-iC 300 

3 , J*-iC300) ,T^C3003 ,N'tC25) 
IF 11 N*— l;UA-52932:JP-0 : TH-0: 

DD-S0944 i WAS- "C HOME , D0UIN2J " 
Fl 15 PRINI"CCLR,SP,SA l S5eJ 1" 
F0 20 EN-PEEKC173)*256+PEEKC172 

3:AD-EN+4: IFAO<2110THENAD-21 

10 

F5 25 DA-AD: AJ-AD-2107 : GOSUB20S 

50 : GO5UB20500 
BA 30 LN-PEEKCPR+3)*256+PEEKCPR 

+2) : PR-PR+4 
CA 31 IFPR>-ENTHEN10000 
.43 33 IFAD>2S500THEN30210 
5B 35 PRINT "CHOME , DOUJN3 "LN ; AD-D 

ft 

65 40 N*-N3s+1:L*CN*)-LN: A5SCN*)- 

AD-AJ 
10 50 CM'-t-PEEKCPR: 
FE 60 IFCM\-1S3THEN4000 
A3 70 IFOT;>B4ANDCM!s<91THEN2000 

26 60 IFCnt-137ORCMS:-141THEN300 
0 

05 90 IFCM^=12B0RCMS:-1420RCnX-l 
44THENGOSUB20270: ZV.-0: GOTO90 
0 

0F 100 IFCM*-139THEN3200 
AF 110 1FCM5;-1S1THEN5000 
93 120 IFCM5S-129THEN5100 
B4 130 IFCM*-130THENS200 
D4 140 lFCnX-156THENGOSUB20500: 

Z^.-0:GOTO900 
07 150 IFCMX-143THEN5300 
74 160 IFCM3-134THEN5400 
73 170 IFCM*-15BTHEN5S00 
51 180 IFCM*-131THEN5600 
F3 130 IFCM=t-140THENGQSUB20540: 

2"^-0:GOTO900 
50 200 IFCM^-135THEN5700 
4E 210 lFCn5s-136THENPR-PR+l:G0T 

□50 

A9 890 GOTO30200 
25 900 PR-PR+Z'-s+l 
B4 910 IFPEEKCPR3-58THENPR-PR+1 
: GOTO50 

67 920 IFPEEKCPR3-0THENPR-PR+1: 

GDTO30 
C5 330 GOTO30150 
14 1000 Z?i-0:tiJA?i-9 
2C 1010 Z3!fi=PEEKCPR-Z^D : IFZ95i-0 

0RZ9"-t-580RZ9*'i-440RZ95t-164THE 

N1020 

44 1011 IFZ9%-590R29"-t=340RZ9'4-l 
7B0RZ9!i=179ORZ3?S=1770RZ9Js=16 
7THEN1020 



DB 1013 Z!s-Z!i+l:6OTai010 

4B 1020 Z*-Z*- l:A*-0: 8^-0 :C*-0; 

FORA-0TQZ* 
35 1030 IFPEEK(PR+A)=134ANDA!s-l 

THEN30000 
4C 1040 I FPEEKC PR+A3 =194ANDPEEK 

CPR+A+1JO40THEN30010 
33 1050 IFPEEKCPR*A5-194THENA^- 

1:C^-1:GOTD1100 
3C 10B0 IFPEEKCPR*A5-40ANDB^i-lT 

HEN30020 
41 1070 IFPEEKCPR*A3-40THENB^-1 

:GOTO1100 
8B 1080 IFPEEKCPR*A3-41ANDB!4-0T 

HEN30030 
70 1030 IFPEEKCPR+A)-41THENB*-0 

: A^-0 
D2 1100 NEXT 
7C 1110 IFC!i-lTHEN1150 
FE 1120 X^-0:Y , -t-Z!i:O4!i-0:GOSUB2 

100 

94 1130 GO5UB20120 
F6 1140 RETURN 

DE 1150 06^=0 :FORG=0TOZ?S: IFPEEK 

CPR+G)-194THEN0E^-06^+l 
18 1160 NEXT : X*-3 : Y5S-X* 
73 1170 lFPEEKCPR+Y*l<>41THENYfc 

-Y*+liBOTO1170 
B8 11B0 Y*-Y%-l:O13s-0:6OSUB2100 

:GOSUB20130 
64 1130 GO5UB20150:XS;-Y*-2: IFD6 

X-1THEN12G0 
B4 1200 GO5UB20120:O4?i-l: A*=PEE 

KCPR+X^O :GOSUB2230:O25t-OlX 
16 1210 IFPEEKCPR+X%+1X>134THE 

N30000 
D3 1220 X5S-X*+3: Y*-X% 
C6 1230 IFPEEKCPR+Y"<)<>41THENY^ 

-Y"-t+l:GOTO1230 
EC 1240 YS!-YS!-1: DlSc-0: GQSUB2100 

:GO5UB20130 
22 1250 GaSUB20140:Oli-O2^:GOSU 

B2500:X^-Y:i+2 
47 1260 04^-2:01^-0: YJfi-Z* : IFX*> 

-Y5sTHEN12B0 
0D 1270 GOSUB2100:Oir<=0 
IX 1260 GO9UB20120: RETURN 
A2 2000 PR-PR+1 

C7 2001 IFPEEKCPRJ-40ANDCM^<>90 

THEN30150 
31 2002 IFPEEKCPRD-40THENQO-PR* 

1 : GOTO2050 
A6 2009 00-0: I FPEEKCPRX>17BTHE 

N30040 

B7 2010 PR-PR+1: IFPEEKCPR+li-40 
ANDPEEKCPR5O90THEN2015 

62 2011 IFPEEKCPR+1 J-40THENGOSU 
BB090:OO-1:GOTO2019 

B7 2015 Ol?t«0:GOSUB1000 

E5 2013 Q-UA+2"CCM*-E53:H?i-Q/25 
6:L*-D-H;£«25G 

IF 2020 GO5UB20160 

31 2030 IFOO-1THEN2056 

CF 2040 GOTO300 

CE 2050 IFPEEKt PR J<> 17BTHENPR-P 

R+1:GOTO2050 
D6 2051 PR-PR+1 

12 2052 I FPEEK C PR+1 5 -40ANDPEEKC 

PR3-90THEN301S0 
00 2053 O1^-0:GOSUB1000 
B9 2054 GOSUB20310 
24 2055 PR-OO-2:GOSUB2090 



81 2056 IFPEEKCPR3-0ORPEEKCPR3- 

58THEN910 
C0 2057 PR-PR+1 : GOTO2056 
AS 20B0 X*-0:Y*-0 

36 2081 IFPEEKCPR+Y50041THENY* 
-Y!t+1:GOTO20B1 

14 2082 Y3!-Y5s-1: RETURN 

E8 2090 PR-PR+2: 01^-0 : GOSUB20B0 

:GO5UB2100 
4F 2091 IFOO-0THENGOSUB20120:GO 

9UB20310 : GOSUB204B0 : RETURN 
EA 2092 GOSUB20490: RETURN 
5D 2100 AS-"":O"i-0:FORA-X?iTOYX+ 

1: AJi-PEEKCPR+A) 

23 2101 IFQ4!S-2THENO45:-0:GOTQ22 
30 

CF 2110 IFA%>47ANDA^<5BAND0%-1T 
KEN30050 

04 2111 I FA-1>47ANDA^< 5BTHENAS-A 

S+CHRSCA^3 :GOTO2300 
B4 2120 1FAS-""THEN2160 
BC 2130 Q-UALCAI3:Hli-Q/25B:L!l-0 

-H*-256: AS-" " 
CF 2131 IFOl?t<>0THEN2151 
3B 2140 GOSUB20000 
2F 2150 BQTO2230 
90 2151 GOSUB20040 
B7 2152 O"-s-l:GO5UB2500:GOTO2530 

AF 2160 IFA^>64ANDA5l<31ANDO!c-lT 
HEN30050 

01 2170 IFA*>64ANDA*<31THEN2190 
07 2180 6OTO2220 

4A 2190 Q=UA+2»CA!t-65):H!t-Q/25B 

: L"-!-D-H!t»25B 
FA 2131 IFOHi<>0THEN2211 
DD 2200 GO5UB20020 
CI 2810 OW:GOTO2300 
DE 2211 GOSUB20060 
09 2212 O*-l:GaSUB2500:GOTO2300 

AC 2220 IFO'4-0THEN30050 

12 2230 IFA^-170THENDl--t-3:O--l-0 

GOTO2300 
B4 2240 IFA*-172THENOl*-S:aX-0 

GOTO2300 
F0 2250 IFAk-171THENOl!i-4:a?i-0 

GOTO2300 
67 2251 IFA^-173THENOl!i-6:a%-0 

GOTO2300 
B9 2252 IFA*-175THEN01*-1 ; O*-0 

GOTO2300 
B9 2260 IFA^-176THENOl^-2:O"-i-0 

GOTO2300 

CB 2261 lFA5i-0ORA^-S8ORArt-44ORA 
!t=41ORA!t=53ORA^=34THEN2300 

AC 2262 IFA*-1780RAV.= 1790RA*-17 
70RA!i- 1 67ORA\-164THEN2300 

24 2270 GOTO300G0 

37 2300 I FO4"-i-lTHENO4*-0: RETURN 
49 2310 NEXT : RETURN 

C3 2500 GNO1XGOSUB204E0,20470 1 2 
0080,20100,20090,20110 

AC 2510 IFUA!i<INTCC011t+l)/2)THE 
NUN=U)N+1 j UJAS=UAS+"CD01jJN3 " : PR 
INTUAS-CSLJ I NE "LN "WARN I NG " 

E4 2520 UJA^-INTCC01v.+i3/g3:RETU 
RN 

BB 3000 PR-PR+1:AS-"";FORZ-0TO6 

: A*-PEEKCPR+23 
5F 3010 IFA^-5BORA^-0THEN3040 
2C 3020 IFA%>47ANDA^<5BTHENAB-A 
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5+LrlK5LR-£ J : NLXI 


B4 


4161 lFHTt-0THENGOSUB4500: GOT 


- 


HEN30160 


J.L. 


■iii'i'i r;nTri^fiif»7fli 

d(fld0 bUlUdWU/B 




□4400 


3F 


5410 IFPEEKC PR JO0ANDPEEKCPR 


CD 


*3l7lUl7l rial lit f fsci l K'.n /3CG. I VaCI 

Juiu U vHL IMS J 1 P.. y< C3D : u 


:.b 


"11/0 <£1^-Z1..+ 1 : fl-i-PEEKCPR+Zl 




J<>58THtNPR~PR+l : GOTO5410 




-H-i*c5B: Z-S-Z-l 




J : GOSUB4500: IFR-1THEN4400 


60 


5420 GOTO910 


00 


30bB I r Un-.-141THtNd0/H 


/c 


41B0 GUTU4010 


27 


5500 PR-PR-fl: 01^.-0: GD5UB1000 


Fl 


30B0 GOSUB20230: GOTO900 


E9 


4S00 R1-PR:PR-PR+Z1^ 






C Q 

ba 


J0/0 bUbUDe0cib0 ; bUIUSWW 


C* Li 

r t 


4C03 O4-i"0 : Dl!.-0: US'-*©: O^- _ 0 : 


76 


5560 GD9UB20510 


IB 


3200 PR-PR+1: IFPEEKCPKJ-lb/I 




GU5UB1EB0 


D7 


5570 GOTO900 






Lc 


4cl0 GUSU8d0dl0 


35 


5600 AS-"": PR-PR+1 


HQ 

ba 


dewl Ul-i-0 


E7 


4SS0 PR-R1 ; Zi:.-2i:.+Z"; : A'.-PEE 


BE 


5610 A1.-PEEKCPR) : I FA!i< 4BGRA-1 


CP 


"^PtPl Rfl?l IP 1 BPP • PP=PP+7*' + l • A!i 








>b/lntN3b30 




-CCCVf DDI . nlViDmVPD.l "1 

— rtt-KlrKJ ; Hl<— rLLKArK*! J 


6C 


tcdU bUbUbibOB: J r R-17HEN4400 


71 


5520 AS-AS + CHRSC A'S) : PR-PR*1 : 


r e 


JeefcJ Lr1"B: lr fl^ B lb/ Int-Nd/Blo 








6OTO5G10 


30 


3230 PR=PR+2: IFCm-1*173PNUR1* 


R4 


4P31 IFA/'-34THFN7Ik-71 /t-1 


F4 


S630 Q-UALCAS): IFQ>255THEN30 




■1// JURIA4-177ANUA1<-1 /3 JTHc 


AF 

riL 


J.U UU jUlU^U 




170 




NLr^"l : bU 1 U J JUU 


□0 


4400 7-t-?l ■ RnTflRBH 


EF 


5640 POKEDD, Q: DD"DD+1 


bU 


de40 1 r l A-.-1 //RNURl'.-l /a JUKQ 


CD 


H *J . 1 r M-i 33URH-4 Ji 1 nLUfl 


57 


5650 IFA--1-44THEN5600 




R-i 1 /aRCJURl't™l ' / J 1 ntNUr't"c; b 




FTl IffN 


69 


5660 IFAk-5BORA^-0THEN310 




U 1 UddlavJ 


E9 


4510 I FA?i-44THEN4550 


61 


5670 GOTO30180 


in 


JcaU 1 r IH-1"1 '3HNUHi-t"l /a JUKI 


3C 




DC 


5700 PR-PR+1 ; Ai-PEEKCPR) 




R-S™1 /aRNURl-.—l /3 J 1 HtNLr'»"d : b 


rn 




19 


5710 IFA5K65ORA:.>90THEN30190 




UlUddWU 


uc-an T F0"'-1 R4THFNRFTI IPN 


62 


5720 Q-UA+2*CA^-65J:H^-D/256 


AF 

Mr 


3C33 lr l. H i. olUnH 310 JMIMU LH 


59 


4531 I FArfi-0DRAk-SBTHEN4S70 




: L^.-Q-H% - 256 




/ UrCML't'33JMNLJHl-^s^ 13T . HI. 


43 


4540 RETURN 


RE 


5730 GOSUB20520 




i j J i cu 


0E 


4550 GOSUBP0P00 


D4 


5740 PR-PR + 1:A".-PEEKCPR5 


r *i 


Jcblfl rh"rn I : IrR-.— 1//1 ntfVLr^. 


6F 


4SR0 RFTURN 


7R 


5750 1FA^-44THENS700 




-4 : bLJlUdd0U 




4*-i70 A" 1 ■ T FPFFK ( PP»7 1 "'-1 "l-^l 


FF 


5760 IFA^-0ORA:.-5BTHEN910 


CH 


Jc/U lrH-4~l/alnt.lNLr'i™3: bulUd 




□RPEEKt PR+71!i-l 1-44THFNRFTUR 


D4 


5770 GDTD30190 






5E 


N 


FD 


B000 PRINT"C DOWN , SPC53 " ; : IFD 


pt 
r b 


dcBU lrR-i — l/dlntNLr-i— b: bUlUd 


"590 GDSUB20220 




U-1THENPRINT"P0S1TI0N TAPE" j 




3(010 


B7 


4600 RETURN 

* * V 1* 4h W I'll 




: 6OTOB020 


cc 


3290 GQTO30110 


TF 


S000 PR~PR+1 - ni ^"0 - tifl^l IR1 000 


BF 


8010 PRINT" INSERT DISK" ; 


13 


3300 uDSUBc0310 


■^F 


• GflSl IBP011 Pi 


3B 


B020 PRINT" AND PRESS A KEYC 


op 

bL 


3dl0 Ul-i"W : bUbUn 10010: lr rthK t 


Cpi CI pp;DO-7".»p . n *i v=m • unci idi 




□OUND : POKE 198,0: WAIT 198, 1 : P 




PR*24+1 )<> lb7IHtN301c0 








0KE19B. 0: RETURN 


FB 


33S0 □NCP';GDSUB50330 , C0410 , c 


ild 


30C0 bUbUbc0340 


46 


9000 POKE53280, 14: P0KE532B1 , 




04b0 , £0440 , d0dd0, d 04d0 


D3 






S: P0KE199 , 0 


HI 


3330 GOTD3B00 


"7 LI 


bl00 PR-PR---1 : CU**"PEE)Xt PR J : IF 


7C 


9005 PRINTCHRSC 14 J CCLR , WHIT 


C4 


3700 GQSUB50300 




CU-:* 5bDRCU-t> 90THEN301 30 




E.D0UIN3 CSG.ST.SX] CSC.SO.S 


Fl 


3710 2k— 1 : GOTD3B00 


C3 


3110 rK"rrt*l : 1 r rhLKC rK J < > 1 /o 




n, SP.SI ,SL,SE,SR,SPC10] CCSC3 


CF 


3B00 T!iCTH)-flD+l : TH-TH*1 




1 ntNJBl JIO 




5 CSR] CSD3 C SB DELL 


13 


3B10 GOSUBc0cB0 


cu 

—i 1 


ci pfTi DDaPO*i i m VhPI • nnci id 1 mm it 


1C 


n f\ 1 fl n f^ i fc, i nr ti f^ ha *^ ^ i ■ 

3010 PRINT" CCY12J 


B0 


3B40 GDTO3900 




i DP«DD*7V>3 . TCDCrv DD_1 *i/V1C 

. rK~rif*£^*c: irrEtMrK 1 M'lb 


D4 


9020 I NPUT C D0UN2 , RI GHT2 , SS3 


F0 


3900 PR-PR+E'-i+l: IFPEEKCPRIO 




^ l ntNdiai d0 




OURCE NA[1E"jNSS 




1B7THEN30150 


PR 


^1 ^(71 rial IQ4 3I f fl IV _CC 1 . UV.n ;3C 


□6 


3021 IFLENCNSS J -0ANDDU< > 1THE 


94 


3910 IFPEEKCPR+1 5>47RNDPEEKC 




o : u — M-s ebb : bUbUbcolbU : Ln" 




NPRINT"CUP3D" ; : GOTO9020 




ft r*i i ^ r - f™i i f h i *»i i. _ * that'll 'Si 

PR*1 J<3BTHENCn-."137 : 6DTU3000 






bB 


9030 INPUT LRIGHTe, 50 JBJECT 






— — 
33 


ci \Af7k ni fl 4 H fx . nnci idi nfmn 




NAnE ; NOS 


CM 


dbc0 PR*rR+l 


7R 


313U n-.™i_n/ ebb : L-« L.n — rl'4~cbb : 


0r 


3031 1 r LtNCNUB J-0ANUUUO 1THE 


25 


3330 GDTU50 




CnCi ID3ITI1 cm 

bUbUocUlbU 




a i r*t t 1 1 fl (— i i n t (i i^*f^^r* nnn *^**T»i 

NPRINT tUPJ ; : GOTO9030 


BS 


4000 El^-0 




blb0 iN-it LU'i~bb) "RLI R J : NX-i C NX 


05 


9040 IFDU<> 1 ANDNSS-NOSTHENPR 


4B 


4010 ZIaI-ZI-4+1 




J"L.<lii : NX"NX*i : UU1 Ubtltt 




T f" iT* f* h in n T 1 1 ^r^ 111 »"* Trl ^1 ^% i i f\ T Ii #— * 

INT CUP, RI GMT 14 , SPC20 , UPJ : G 


14 


40E0 h£-PEEKCPR+Z15.J 


Lfl 


bcWW rK"rlT*l:fl<4"rhtritrr(): IrP 




□TU3030 


4B 


4030 I FR5.-34THEN40B0 




V™*a3TUC"MC13rail 

-I'JCintNbCIOlS 


dc 


q r> r - fT, f i\ini it ■' r nm ihi nt 1 fm r-r*TT 

90b0 INPUT LDOUIN , RIGHTe, 53 J I 


EB 


4050 IFAa:>64hNDA^<B1THEN4200 


CD 

bb 


bcBl 1 r R^ B 0UKR-s~ba I ntN«£-s— 1 : 




GN-5PACE? YCLEFT3 J " ; AS 










bt 


30/0 3P-.-0:irflS- Y THtNSF-C"l 


7F 


4031 IFH-4>47HNDR';<5BTHtN4c00 


b.r 


bcrlB Z^i-0: IhR^<b5uRH-4>30THEN 














/b 


3100 bUb'JbbBBB: PQ».Eia5 , 0: T-4 


Rb 


40bc? Ir R-l~134THtN4c00 


bd 


bell NX"NX~1 : I r R-i<> NX-it NX iln 




03D0-LENCN5S J : H-i-T/256 : L-l-T- 


AD 


40G0 GuSUB4300: IFR-1THEN4400 




bNd0c30 




H!i - 256 






93 




8D 


9110 PDKE7B2 , H-i : P0KE7B1 , L't: P 


Em 


40B1 GDTD4010 




'ebb : L^^U-Hi^cSB 




OKE780 , LENCNSS ) : SYSB5469 


□1 


40B0 Zl^fi-Z1^*1:Y1^-Zli 


0R 


5530 Q-Q+a-5G:Hl''.-0/856:Ll^- 


1A 


9120 P0KE7B1 , 1 : P0KE7B2 , B : POK 


CC 


4090 R'-i-PEEKtPR+Zl!-.): IFfl^-0T 




Q-H1"-S»S5B 




E7B0 , 0 : SYS65493 : GOTO10 




HEN4110 


33 


5540 GOSUBe03S0 


E9 


9500 H^-DA/256:L^-DA-H^*256: 


9F 






3e3U r«"rff 'c-l*l : 1 r rttM rK J ~d 




PnkTSci i ViPn^cpca u". 
rilNLCjl ,[_-.: rUNLctic , 




OTO4090 




4TMENS200 


42 


3505 H^-AD/25G:L^.-AD-H:.»256: 


4E 


4110 GQ5UB201B0 


B3 


S5G0 GOTO310 




PDKE253 , L'4 -. P0KE254 , H?i : SYS497 


BC 


4150 IFZl=t-Yl!.-0THEN4161 


75 


5300 I FPEEKCPR JO0THENPR-PR-*- 




46 


BE 


41B0 FORA-0TCZ15E-Y1X-1: POKER 




1 i GOTO5300 


4B 


9510 POKES3280,14:POKE532B1, 




□, PEEKCPR+YlVfl) : hD-mO*1 : NEX 


D5 


5310 GOTQ910 




6 




T 


BE 


5400 PR-PR+1: IFPEEKCPR JO90T 


9C 


9511 PRINT"CCLR, WHITE, DOUIN.R 
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► 



IGHT3.C0163 " :PRINT"C RIGHTS ,R 
USQN , SP , SR , SD , 5G , 5R , SA , SM , 5S 
PC , SC , SO , Sfl , SP, SI , SL , SE , SD , R 
USOFF3" 

Dl 9512 PRINT"CDOU)N,RIGHT3,SB 1 S 
A.SS.SI.SCD LENGTH: "EN-504S; 
TftBCS6)"CE049";-EN"CLEFT::" 

3C 9513 PRINT"CRIGHT3,SCJ0MPILE 
0 LENGTH : "AD-DA+5B; TABCSB) "C 
5049" ; -CS107+AD-DAJ "CLEFTD ] " 

2A 9S14 PR I NT "C DOWN, RIGHTS, 5UGA 
RNINGS: "ION 

EB 95S0 PRINT "C DOWNS , RIGHTS , SS3 
ELECT ONE OF THE FOLLOWING: - 

48 9530 PRINT"C00WN,RIGHT6,RUS0 
N,SS,RU50FF3 5AUE COMPILED 
PROGRAM" 

30 9540 PRINT"CD0WN,RIGHT6,RUS0 

N,SR,RUSOFF3 RUN COMPILED P 

ROGRAM AND EXIT" 
05 9550 PR I NT "CDOWN, RIGHTS, RUSO 

N,SO,RUSOFF3 OUTPUT RUN-Tin 

E LIBRARY" 
64 9560 PRINT"CD0UN,RIGHT6,RUSD 

N , SC , RU5DFF3 COMPILE ANOTHE 

R PROGRAM" 
29 9570 PRINT"CDOU)N,RIGHT6,RUSO 

N,SE,RUSOFFD RETURN TO BASI 

C 

9A 95B0 F0KE198 , 0 

46 9600 GETAS; IFAS-"R"THENSYS20 

B0 : END 
57 9610 I FAS- "C "THENRUN 
5D 9650 IFAS-"S"THENGO5UB9800:S 

OTO9510 

CE 9630 IFAS-"O"THENGQSUB8000:S 

YS49B54:GDTD9510 
C5 9640 I FAS- "E "THENEND 
El 9650 GOTO9600 

6E 9700 POKE1020,B2:POKE1021,B4 
: POKE1022 , 76 : DU-PEEKC 1865 : IF 

PEEKC 431523 -169THEN9000 
10 9710 POKE1B5,0:POKE7B2,3:POK 

E7B1 , 252 : POKE760 , 3 : SYSB5469 
EB 9750 PDKE7B1,0:POKE7B5, 195;P 

OKE7B0 , 0 : SYS65433 : BOTO9000 
19 9B00 BOSUB8000:T-40960-LENCN 

SSJ-LENCNOS3 :Hi-T/556:Li-T-H 

i*S55 

70 9810 P0KE78E,Hi:P0KE7Bl,Li:P 

OKE7B0 , LENCNOS3 : SYS65469 
43 S850 P0KE554,8:P0KES53,1:P0K 

E780 , 553 : A-AD-AJ : Hi-A/556 : Li 

-ft-HS6"25B 
55 9830 P0KE78S,Hi:P0KE781,Li:S 

YS65496: RETURN 
FD 10000 PRINT ,, EH0ME 1 D0WN,5P 1 SA 

,SS5J 5CSPC7D" 
34 10001 AiCNi+13-AD-AJ:GO5UBS0 

570 

DD 10010 1FJP-0THEN10100 

43 10050 FORA-0TOJP-1 

69 10030 Ai-PEEKCJiCA3 3+SS6»PEE 

KCJiCA3+l) 
OF 10040 FORB-0TONi: IFLiCB3<>Ai 

THENNEXT : LN-Ai; GOTO300B0 
□0 10050 Hi-AiCB3/S56:Li-AiCB3- 

556-Hi 

BA 10070 POKEJiCAS , Li : POKEJiC A 3 
+1,K% 

05 100B0 FORB-0TO0:NEXT 



13 10090 NEXT 

56 10100 IFTH-0THEN10500 

51 10150 FORA-0TOTH-1 

59 10130 Ai-PEEKCTiCASS+BSe-PEE 

KCTiCA3+13 
BB 10140 FORB-0TONi: !FLiCB3<>Ai 

THENNEXT t LN-Ai : GDTD300B0 
55 10150 B-B+l:Hi-Ai(83/256:Li- 

AiCB3-S56»Hi 
FE 10170 POKETiCA3 , Li: POKETiCA3 

+l,Hi 

AS 10180 FORB-0TD0 : NEXT 

77 10190 NEXT 

B5 10500 IFDD-S0944THEN9500 

B3 1O510 FORA-0TODD-S0945:POKEA 

D*A , PEEKC50944+A3 : NEXT : B-AD- 

AJ 

64 10550 Hi-B/2S6:Li-B-Hi-256:P 
DKEDA+3 , Hi : POKEDA+1 , Li: AD-AD 
+A : GOTO9500 

BB 50000 FORU-0TO7: PDKEAD+U, PEE 

KC49152+U3:NEXT 
53 50010 PDKEAD+1 , Li : POKEAD+S, H 

i : AD-AD+U : C I -1 : GOTO55000 
7F 50050 FORU-0TO9: POKEAD+U, PEE 

KC49160+U):NEXT 
97 50030 POKE AD* 1 , Li: PDKEAD+2, H 

i : POKEAD+6 , Li+1 : POKEAD+7 , Hi ; 

AD-AD+U: CI-2:GOTO25000 
SC S0040 FORU-0TO7: POKEAD+U, PEE 

KC49170+U3:NEXT 
55 50050 P0KEA0*l,Li:P0KEA0+5,H 

i : AD-AD+U : C I -3 : GOTO2S000 
7E 50060 FORU-0TO9: POKEAD+U, PEE 

KC49178+U3:NEXT 
19 50070 PDKEAD+1 , Li : POKEAD*S, H 

i ; POKEAD+6 , Li+ 1 : POKEAD+7 , Hi : 

AD-AD+U: CI-4 : GDTD55000 
C3 500B0 FORU-0TO2: POKEAD+U, PEE 

KC49188+U5 : NEXT : AD-AD+U: CI -5 

: RETURN 

55 50090 FDRU-0TO2: POKE AD+U , PEE 
KC49191+U3: NEXT: AD-AD+U: CI-6 
: RETURN 

65 50100 FORU-0TO2: POKEAD+U, PEE 
KC49194+U3 : NEXT : AD-AD+U: CI-7 
: RETURN 

6E 50110 FORU-0TQ2: PDKEAD+U, PEE 
KC49197+U3:NEXT: AO-AD+U:CI-B 
: RETURN 

67 50150 FORU-0TO7:POKEAO+U,PEE 

KC49500+U3 : NEXT : AD- AD+U : CI -9 

: GOT 055000 
DB 50130 FDRU-0TO7:POKEAD+U,PEE 

KC49S0B+U3 : NEXT : AD-AD+U : C I -1 

0 : RETURN 
B5 50140 FQRU-0Ta7:POKEAD+U,PEE 

KC4951B+U3 : NEXT: AD-AD+U: CI-1 

1 : GOTO55000 
B7 50150 FORU-0TO7: POKEAD+U, PEE 

KC49SS4+U3 : NEXT t AD-AD+U : CI -1 

S;BOTO55000 
CF 50160 FORU-0TO9:POKEAD+U,PEE 

KC49535+U3 :NEXT:CI-13 
61 50170 P0KEA0+3 , Li: POKEAD+4, H 

i: POKEAD+B , Li+1 1 POKEAD+9, Hi! 

AD-AD+U : GOTO55000 
A9 501B0 FORU-0TOB: POKEAD+U, PEE 

KC49S4S+U3:NEXT 
44 50190 POKEAD+1 , Eli-Yli: AD- AD 

+U:CI-14:RETURN 
B0 50500 FORU-0TO2: POKEAD+U, PEE 



KC49S49+U3 ; NEXT : AD-AD+U : C I -1 

5: RETURN 
57 50510 IFSPi-lTHENGOSUB50430 
BA 50511 FORU-0TD6: POKEAD+U, PEE 

KC 49555+U J : NEXT: AD-AD+U: IF5P 

i-lTHENBOSUBS0430 
D7 50515 Cl-16: RETURN 
DD 50550 FORU-0TD4: POKEAD+U, PEE 

KC49S59+U3 : NEXT : AD-AD+U : CI-1 

7: RETURN 

D4 S0S30 FORU-0TO5: POKEAD+U, PEE 
KC49264+U3 : NEXT : JiC JP3-AD+1 

A0 50540 POKEAD+1 , Li: PDKEAD+2, H 
i : AD-AD+U: JP-JP+1 : CI-1B: RETU 
RN 

4F 20S50 FDRU-0TD5 : PDKEAD+U, PEE 
KC49267+U3:NEXT: JiCJP3-A0+l 

C5 20260 POKEAD+1, Li:P0KEAD+2,H 
i: AD-AD+U: JP- JP+1 : CI-19: RETU 
RN 

SD 20270 POKEAD,PEEKC492703:AD- 

AD+1:CI-20:RETURN 
32 202B0 FDRU-0TO2 : POKEAD+U , PEE 

KC49271+U3:NEXT 
E3 20290 PDKEAD+2 , LN/556: POKE AD 

+1 , LN-PEEKCAD+S3 "556 : AD-AD+U 

:CI-21:RETURN 
56 50300 FORU-0TO7: POKEAD+U, PEE 

K ( 49S74+U 5 : NEXT : AD-AD+U: CI -5 

5: RETURN 
A0 50310 FORU-0TO7; POKEAD+U, PEE 

KC49585+U3 : NEXT i AD-AD+U : CI -5 

3:GDTDSS000 
IB 50350 FORU-0TO11: PDKEAD+U, PE 

EKC49S90+U3: NEXT: AD-AD+U; CI- 

54 : RETURN 
IB 20330 FDRU-0TO1 1 : POKEAD+U , PE 

EKC4930S+U3 : NEXT : AD-AD+U: CI - 

25: RETURN 
7B 50340 FDRU-0TO5: POKEAD+U , PEE 

KC49314+U3 : NEXT t AD-AD+U: CI -5 

6: RETURN 

F3 20350 FQRU-0TO2S: POKEAD+U, PE 
EKC49350+U3 : NEXT: CI -27 

IF 50360 POKEAD+1, Li: P0KEAD+2.H 
i: POKEAD+9, Li+1 : POKEAD+10, Hi 

7A 20370 POKEAD+4 , Lli: PDKEAD+5 , 
Hli: POKEAD+12, Lli+1 : POKEAD+1 
3,Hli 

BD 203B0 POKEAD+17 , Li : PDKEAD+18 
, Hi i PDKEAD+20 , Li t P0KEAD+B1 , H 
ft 

B3 50390 P0KEAD+25,Li+l:P0KEAD+ 
56, Hi 

DB 50400 PQKEAD+SS,NiCAi3/556:P 

0KEAD+5B , NiC Ai 3 -PEEK t AD+59 3 • 

556 : AD-AD+U: RETURN 
70 50410 FDRU-0TO15:POKEAD+U,PE 

EKC 49350+U 3 : NEXT : AD-AD+U : C I - 

58; RETURN 
AE 50450 FORU-0TO1S: PDKEAD+U, PE 

EKC4S366+UJ : NEXT: AD-AD+U: CI- 

59: RETURN 
96 50430 FORU-0TO4: POKEAD+U. PEE 

KC49365+Ul:NEXT:AD-AD+U:CI-3 

0: RETURN 

08 20440 FORU-0TD17 : PDKEAD+U , PE 

EK C 493B7+U 3 : NEXT : AD-AD+U : C I - 

31 : RETURN 
18 50450 FDRU-0TO17: POKEAD+U, PE 

EKC49405+U3 : NEXT: AD-AD+U: CI- 

32: RETURN 
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71 20460 FORU-0TO2 : PQKEAD+U , PEE 
KC49423+U5 : NEXT: AO-AD+U: CI-3 
3: RETURN 

45 20470 FORU-0TO2:POKEAD+U,PEE 
KC49426+U5 : NEXT : AD-AD+U: CI-3 
4: RETURN 

F4 204B0 FORU-0TO2:POKEAO+U,PEE 
KC49429+UJ : NEXT : AD-AD+U: CI -3 
5: RETURN 

EF 20490 FORU-0TO2:POKEAD+U,PEE 

KC49432+U) :NEXT: AD-AD+U: CI -3 

6: RETURN 
13 20500 FORU-0TQ2:POKEAD+U.PE£ 

KC 49435+U3 : NEXT : AO-AD+U ; C I -3 

7: RETURN 

99 20510 FORU-0TO11:POKEAD+U,PE 

EKC4943B+U5 : NEXT : AO-AD+U: CI - 

30 : RETURN 
A2 20520 FORU-0TOE : PDKEAD+U , PEE 

K(49450+U3:NEXT 
AE 20530 POKEAD+1 , LSi: POKEAD+3, H 

\: AD-AD+U :CI-39: RETURN 
19 20540 FORU-0TO2:POKEAO+U,PEE 

KC 49457+U 3 : NEXT: AD-AD+U: CI-4 

0: RETURN 
32 20550 FDRU-0TO11:POKEAD+U,PE 

EKC494B0+UD: NEXT: AD-AD+U: CI- 

41: RETURN 
2E 25000 I FL I - 1 ANDC I -9THENAD-AD 

-B: PDKEAD-5, 20: POKEAD-1 , 21 : L 

1-42: RETURN 
79 25010 IFLI-2ANDCI-9THENAD-AD 

-8 : POKEAD-B , 20 : POKEAD* 1 , 21 : L 

1-43: RETURN 
AA 25020 IFLI-9ANDCI-13THEN2B00 

0 

41 25030 I FL I -9ANDCI -23THENAD-A 
D-8: PDKEAD-5 , 63 | PDKEAD-1 , 64 : 



LI-45:RETURN 
83 25040 IFLI-11ANDCI-44THEN260 
20 

S0 25050 IFLI-11ANDCI-45THENAD- 
AD-8 : PDKEAD-5 , 63 : PDKEAD-1 , 64 
:L1-47:RETURN 

00 25060 IFLI-12ANDCI-44THEN260 
40 

D9 2S070 I FL I -12ANDC I -45THENAD- 

AD-B : PDKEAD-5 , 63 : PDKEAD-1 , 64 

:LI-49: RETURN 
55 25900 LI-CI : RETURN 
5F 2B000 AD-AD-18:FDRU-0TD9:PDK 

EAD+U, PEEKCAD+B+U) : NEXT 
DD 26010 PDKEAD+1, 251 : PDKEAD+6 , 

252 : AD-AD+ 1 0 : L I -44 : RETURN 
7B 26020 AD-AD-18:FORU-0TO9:POK 

EAD+U, PEEKCAD+B+U) | NEXT 
63 26030 POKEAD+l,20:POKEAD-6,2 

1 : AD-AD+ 10 : L I -46 : RETURN 
B7 26040 AD-AD-18:FORU-0TO9:POK 

EAD+U , PEEKC AD+B+U3 : NEXT 
41 26050 POKEAD+1 , 253 : PDKEAD+6, 

254 : AD-AD+10: LI -48: RETURN 

26 30000 PRINT'TSTDOO MANY CSP, 
SE2,SK^S"; : BOTO32000 

27 30010 PRINT"ESP,SE2,SK: WITH 
OUT BRACKETS"! :BOTD32000 

5B 30020 PR I NT " C 5B J RACKETS TOO 

COMPLEX" ; :GOTO32000 
D9 30030 PR I NT "C SB 1 RACKET NESTI 

NB ERROR"; : BOTO32000 
4F 30040 PRINT"C5L,SE,STJ WITH 

NO EQUAL"; : 6DTD32000 
74 30050 PR1NT"C5E3XPECT1NB OPE 

RATOR"; :GOTD32000 
96 30060 PRINT"CSI ILLEGAL OPERA 

ND"; :GDTD32000 



2B 30070 PRINT"CSG,S0,ST,S0D/C5 

G.SD.SS.SU.SBD UIITH NO NUMBE 

R" ; :GOTO32000 
El 30080 PRINT"CSL1INE NUIiBER D 

OESN'T EXIST"; : GOTO32000 
2D 30090 PRINT"CSI,SFD-CST,SH,S 

E.SND UITH NO EXPRESSION" ; ; G 

OTO32000 
48 30100 PRINT"[S1 ,SF3 WITH NO 

CST,SH,SE,5N]" ; : GOTO32000 
6A 30110 PRINT"CSC]OMPARISON ER 

RDR"; :GDTD32000 
ED 30120 PRINT-CSI.SF^-CST.SH.S 

E.SND GARBAGE" ; : GOTD32000 
79 30130 PRINT"C5F,S0,SRD-CSN,S 

E.SX.STD GARBAGE"; : GDTD32000 

7B 30140 PRINT"CSN,SE,SX,ST^ UI 
THOUT CSF,S0,SR3"; : GOTO32000 

85 30150 PR I NT " E 5 A 3 RRAY GARBAGE 

"; :BDTO32000 
3A 30160 PRINT"CSD,SI ,Sn] GARBA 

GE" ; :GOTD320B0 
89 30170 PRINT "CSN3UM8ER TOO LA 

RGE " ; :GOTD32000 
4C 30180 PRINT"CSD,SA,ST,SAD GA 

RBAGE" ; :GOTO32000 
EA 30190 PRlNT"tSR,SE,SA,S03 GA 

RBAGE " ; :GOTO32000 
7A 30200 PR1NT"CSS3YNTAX ERROR" 

; : GOTO32000 
C4 30210 PR I NT " C 5MD EMORY FULL - 

PR06RAM TOO LONG": END 
33 30230 PRINT"CSF,SO.SR:-CSN,S 

E.SX.STD NESTING ERROR" ; : GOT 

D32000 

E7 32000 PRINT" 1N"LN: END 
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Connect two Commodore 64 computers through their 
serial ports or link in to the C16 and Plus 4 



T 

JL here are many ways of connect- 
ing one Commodore computer to 
another but most methods require 
custom-made cables and complex 
software. This routine simply uses 
the serial bus which already has a 
cheap and easily available connector 
in the form of the disk drive/printer 
cable. 

The serial bus has two lines 
which are capable of input and 
output on both computers: the 
CLocK and DATa lines. There is 
also the ATN (attention) line that is 
used to interrupt external devices, 
but unfortunately it cannot accept a 
data signal. There is a line designat- 
ed SRQ IN (serial request in) on the 
C64 but this has been deleted on the 
CI 6 and Plus/4 microcomputers. 

The SRQ IN line allows external 
devices to interrupt the C64 and can 
only be used as an input. The CLK 
and DAT lines are so called because 
of their use in the Commodore 
Kernal ROM during communica- 
tion with serial bus devices. It is the 
CLK line that governs which bits are 
valid on the DAT line and in a sense 
it 'clocks' the bits going out. 

Recently a few dual-player 
games have appeared on the market 
where two Commodore computers 
are connected together and a game is 
loaded into both. This routine has 
possibilities in such environments, 
requiring very little modification to 
the actual code. 

Two copies must be made to get 
the routine up and running, one per 
computer, with a slight modification 
at the beginning of the routine TNT- 
VAR' in each version. Where it has 
LDA #XX, the XX must be 00 in 
one and 01 in the other. This is in 
order to condition TLKFLG (TaLK 



i n 

AW 

SO 


{SERIAL BUS 
. ORG 108! 


COrinUNICATIONS 
11 


30 COLOUR 


-S02BB 






40 

5a uic 


iUIDEQ INTERFACE 


CHIP II REGI5TER5 


-SD000 




60 EXTCOL 


-UIOS20 






70 BSCDLO 


-UIOS51 






60 

90 cie 


iCOHPLEX INTERFACE ADAPTOR *2 REGISTERS 


-*DD0B 






102 CI5PRA 


-C 18+500 






no csodra 


-CI2-S05 






180 


; KERNAL R0T1 


ROUTINES 


130 CHRQUT 


-SFFD5 






140 GET IN 


-SFFE4 






150 


{BASIC HEADER 




160 


.WORD EOB 






170 


.WORD 1587 


; LINE NUHBER 


160 


•BYTE S9E 




iSYS TOKEN 


150 


.BYTE '2061' 




BM 


.BYTE see 




{SIGNALS END OF BASIC LINE 


510 EOB 


.BYTE SO0, 


S00 


I SIGNALS END OF BASIC TEXT 


ega SERCQfl 

Www ■JftLilJl 1 


J5R INTUID 




; INITIALISE UIDEO 


230 


JSR LINREL 




,-RELEASE SERIAL BUS LINES 


240 


JSR INTUAR 




{INITIALISE UAR1ABLE5 


550 CHKFLG 


LDA TLKFLG 






260 


BNE TALK 




; BRANCH TO 'TALK OR 'LISTEN 


570 


JHP LISTEN 






260 TALK 


JSR GET IN 






en 

300 


DIP MOB 
BED TALK 




itoAIT FOR CHAR FROfl KEYBOARD 


310 


ST A BYTE 






320 
330 


PHO 




;SAUE CHAR ON STACK 


LDX IISQD 




i LIGHT GREEN TEXT 


340 


STX COLOUR 






358 
360 


JSR CHROUr 
SEI 




; PRINT CHARACTER TO SCREEN 
i THEN SEND ON SERIAL BUS 


370 


JSR CLKLD 




, SEND ATTENTION 


380 UDATLD 


JSR GETBIT 






330 


BCS UDATLO 




.UAIT FOR ACKNOULEOGE 


400 


LDX *S08 






410 NXTBIT 


JSR CLKLO 




; flAKE DATA NOT UAL ID 


450 


ASL BYTE 




;BIT TO SEND IN .C 


430 


BCS HI OAT 






440 


JSP OATLO 




i SEND ZERO BIT 


450 


JflP OATOAL 






460 HI DAT 


JSR OATH I 




;SEND ONE BIT 


470 OATUAL 


J5R CLKHI 




i flAKE DATA UAL ID 


460 UCLKLO 


JSR GETBIT 






490 


BM UCLKLO 






500 WCLKHI 


JSR GETBIT 






510 
550 


BPL UCLKHI 
DEX 




{WAIT FOR BIT ACKNOWLEDGE 


530 


BNE NXTBIT 






540 


JSR DATHI 




{RELEASE DATA LINE 


550 


CLI 




{ALLOW riASKABLE INTERRUPTS 


560 


PLA 






570 
580 
590 


CUP •SBD 

BNE CHKFLG 
□EC TLKFLG 




;IF ' RETURN ' KEY THEN LISTEN 



FUG) so that one computer has the work with other Commodore com- 

imtial talk priority. This is toggled puters which have a serial bus the 

after every press of the return key. following table of register/bit 

When converting the routine to numbers may be useful 



COMPUTER 


CLK-IN 


CLK-OUT 


DAT-IN 


DAT-OUT 


CI 6. Plus/4 


$0001/6 


$0001/1 


$0001/7 


$0001/0 


VIC 20 


S9I1F/0 


$912C/3 


$911F/1 


$912C/7 


C64/128 


SDD00/6 


$DD00/4 


$DD00/7 


$DD00/5 




YOUR COMMODORE SERIOUS USERS GUIDE 
81 




LISTING 



PROGRAM: BUS ROUTE 64 
LN-50 



i 3A-3B3 H 



C0 
82 
AS 



11 
SF 
B2 



E3 10 BL-2G 
4 

E0 FOR L-0 TO BL:CX-0:FOR D- 
0 TO 15: READ A : CX-CX+A 
25 POKE532B0 , A : POKE SA+LM6* 
D. A: NEXT D 

30 READ A: IF A><CX THENPRINT 
"ERROR IN LINE";LN«-CL«103:ST 
OP 

ID 40 NEXT L:5YS38400 
SD 50 DATA 11,8,195,7,158,50,48 
,54,49,0,0,0,33,113,8,32,765 

ED 60 DATA 173,8,32,107,8,173,2 
53 , B , 208 , 3, 76, 1B1 , B, 32, 22B , 2 
55, 1753 

EE 70 DATA 201,0,240,249,141,25 
2, B. 72, 162, 13,142, 134,2,32,2 
10.255,2113 

80 DATA 120,32,145,8,32,163, 
8,176,2S1,162,B,32,14S,8.14, 
252, 1556 

90 DATA 8,176,6,32.127,8.76, 
77,8,32, 136,8,32, 154, B, 32.92 
0 

100 DATA 163.8.48,251,32,163 
, 8 . 16 , 251 , 205 . 208 , 223 , 32 , 136 
,B,8B.1H37 

110 DATA 104,201,13,208,175, 
206, 253 , 8 , 240 , 171 , 189 , 1 , 141 , 
253, B, 96 ,5248 

150 DATA 169,147,35,510,255, 
169,0, 141,32,208,141,33,208, 
96, 173,0,2014 

130 DATA 221,9,32,141,0,221, 
96,173,0,221.41.223,141.0,22 
1 .96, 1B36 
CE 140 DATA 173,0,521,9.16,141, 
0,221,96, 173,0,221,41,239, 14 
1,0, 1695 

6A 150 DATA 221,96,173,0,221,20 

5,0,221,209,248, 10,96,173,0, 

251 ,41,2134 
3A 160 DATA 507,141,0.551.150,3 

2 , 163 . 8 , 4B , 251 , 35 , 157 , 8 , 35 , 5 

46,8, 1644 
96 170 DATA 32, 136, 8, 162, B , 32, 1 

63, B, 16. 551, 46. 253. B, 32,145, 

B, 1307 

FC 180 DATA 32 , 246 , B , 35 , 154 , B , 3 
5 , 54B , 8 , 502 . 20B , 233 , 8B , 169 , 1 
0, 141, 1817 

190 DATA 134,2,173,252,9,32, 
210 . 255 , 1 73 , 252 , 8 , 201 , 13 . 208 
,197,238.2356 
AB 200 DATA 253,8,76,25,8,160,1 
28,136,508,253,86,0,0.0,0,0, 
1348 

DF 510 DATA 169,0,133,550,168,1 

49. 133,551. 168, 1, 133, 174, 133 

,193,169.8,5234 
AS 220 DATA 133,175,133,194,169 

, 0 , 133 , 252 , 169 , 150 . 133, 253 , 1 

60,0, 177, 250, 24B1 
59 230 DATA 145 , 174 . 230, 250 , 20B 

, 2 , 230 , 251 , 230 , 174 , 208 , 2 , 230 

,175,165.250.2954 



S5 



EA 



AS 



600 


BEQ CHKFLG 




510 INTUAR 


LDA HS01 




5E0 


STA TLKFLG 


; ©-LISTENER / 1 "TALKER 


630 


RTS 




640 






660 INIUID 


LDA #S93 




660 


JSR CHROUT 


j CLEAR SCREEN 


670 


LDA 0100 




660 


STA EXTCOL 




690 


STA BGCOL0 


i BLACK SCREEN AND BDRDER 


700 


RTS 




710 






720 DATLO 


LDA CI2PRA 




730 


ORA #120 




710 


STA CI2PRA 


■ ■ — i l- ^ 1 i t j r f"lft T rt 1 I'll 1 1 

;rlAKE SERIAL LINE UAlfl LUW 


/ ZJV 


RTS 




0 J 






1 1 U Uf 1 n I 


i na ptppba 




/ — u 


AMP (HflF 




730 


JIM L 1 Lf n« 


■MAKE SERIAL DATA LINE HI 


600 


OTC 




BIB 








LU<* LicrrtH 






DBA 114 5 0 




ri 1 


CTfl r T ?PPQ 


(TAKE SERIAL CLOCK LINE LOUI 




RTS 




B60 

670 CLKH1 


LUR LlcrfCH 




OB H 






U>JU 


STA CISPRP 


•DAKE SERIAL CLOCK LINE HIGH 


30S 

WW 


RT9 




910 






9EQ GETBIT 


LDA CI2PRA 




930 


CnP CI2PRA 


, AWAIT STABLE CLOCK & DATA LINES 


340 


BNE GETBIT 




BE ■ 
— 1 — 


ASL A 


;GET DATA IN X ft CLOCK IN .N 


B68 


RTS 




970 






960 LINREL 


LDA C12PRA 




S90 


AMD *SCF 




1000 


STA CI2PRA 


•RELEASE DATA B CLOCK CBOTH HI3 


1010 LISTEN 


SEI 




1050 UILOCLK 


JSR GETBIT 




1030 


Bfl I WLOCLK 


■WAIT FOR ATTENTION 


1040 


JSR DATLD 


5EN0 ACKNOWLEDGE 


10S0 


JSR DELAY 




1060 


JSR DATK1 

" -J b L 11)1 




1070 


LDX #508 




1090 UIKICLK 


JSR GETBIT 




1090 


BPL WH1CLK 


■WAIT FOR DATA UAL ID 


1100 


POL BYTE 


;GET BIT 


1110 


JSR CLKLO 


iTHEN ACKNOULEDOE IT 


1150 


JSR DELAY 




1130 


JSR CLKH1 


.RELEASE CLOCK LINE 


1140 


JSR DELAY 




1150 


OEX 




1160 


BNE WHICLX 


;D0 EIGHT BITS 


1170 


CLI 




1180 


LDA *S0A 


i LIGHT RED TEXT 


1190 


STA COLOUR 




LBOfB 


LDA BYTE 




ieia 


JSR CHRDUT 


i PR I NT CHAP TO SCREEN 


1220 


LDA BYTE 




1230 


CnP #S0D 




i > . n 


BMC t I QTFM 


- IF RFTI IBM KCV THFN TAI IC 


1260 


INC TLKFLG 




1260 


JrlP CHKFLG 




1270 






1260 DELAY 


L.DY #S80 




1230 WAIT 


DEY 




1300 


BNE WAIT 


■ 


1310 


RTS 




1320 






1330 BYTE 


■ BYTE S00 




1340 TLKFLG 


. BYTE 500 




fn:: :nn 


. END 





40 240 DATA 197,252,208,534,165 

, 551 , 1 87 , 2S3 , 208 , 528 , 1 69 , 1 55 

, 133, 187. 168, 150,3156 
7F 250 DATA 133,188,169,12,133, 

193,159,0,133,185,160,0,185, 

107,150,240,2147 
81 560 DATA 6,35,510,555,200,30 
8 , 245 , 32 , 207 , 255 , 240 , 251 , 501 

,48,240,4,2635 
SE 270 DATA 201,56.48,230,41.15 

, 133, 186 , 76 . 234 , 24S, 147 ,17,1 

7, 73, 7B, 1797 



B8 2B0 DATA 80, B5 . 84 , 32 , 6B, 69 , 8 
6,73,67,69,32,78,85,77,66,69 
,1120 

43 290 DATA 82,13,17,67,65,83.6 
1.49,32,47,35,68.73,83,75,61 
,908 

AA 300 DATA 32,56,32,79,92,32,5 
7 , SB , 45 , 32 , 0 , 66 , 85 , 83 , 32 , 85 , 
853 

32 310 DATA 79,85,84.69,32,54.5 
5,0,0,0,0,255,555,255,255,0, 
1475 





STRATEGIC SIMULATIONS - 
A LOOK AT THE STRATEGY 
MASTERS 

DEFINITIVE PROGRAMMING 
HOW TO SMOOTH SCROLL 




DON'T GET 
GET IN ON 



COMMODORE DISK USER is a lot more than just 
another computer magazine. Every issue 
carries a diskette containing more than £30 
worth of software ranging from serious 
programming utilities to arcade games. There 
are plenty of Commodore magazines on the 
market, but we believe that this is the first \o 
cater for disk users of all ages and tastes. 



UTI 

DISK 
DISK 
TEX 
NOl 
CI28 



COMMODORE DISK USER is what you 
have been waiting for - take out 
a subscription TODA Y! 




'r. 




SUBSCRIPTION RATES 



£15.00 for 6 issues U.K. 
£18.00 for 6 issues EUROPE 
£18.20 for 6 issues MIDDLE EAST 
£19.30 for 6 issues FAR EAST 
£18.40 for 6 issues REST OF WORLD 
Airmail Subscription Rates on Request 



Send your remittance to: 
INFONET L TD. y 5 River Park Estate, 
Berkhamsted, Herts. HP4 1HL. 



